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SUMMARY 

This report describes the procedures required to operate the thick wing 
and pylon-fuselage-fanpod-nacelle computer program* The program computes 
surface velocities and pressures^ section loads^ and total configuration 
loads and pitching moment. Potential flow theory is used to compute the 
surface pressures and the associated lift, moment, and vortex drag. The 
skin friction drag is also computed. 

Included in this report is a description of the program set up, input 
data, and output. 
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IMTRODUCTION 


The program was programmed for the Lawrence Berkley Laboratory 
CDC 7600 ccanputer. The source deck was keypunched using the 026 Hollerith 
punch (BCD). ' The program was compiled with the run 76 compiler. Both the 
source and object decks are stored on a data cell at the Lawrence Berkley 
Laboratory using the CDC Update system. 

The simplest and fastest way of estimating computing time and lines 
of output is by cmparing known cases with cases to be run. The approximate 
length of computation times for the cases in this report were as follows; 


CASE I ; 

a. Case 1. Fuselage-wing with 195 by 399 influence matrix A 
and = 0 degrees. 

b. Case 2. Use case 1 influence matrix A and set/o^. = 3 degrees. 

The computing units (CUS) were l400 seconds and the 
central processor (CPU) time was 27O seconds, 

CASE II: 


a. Case 1. Fuselage-wing with I92 by 36O influence matrix A 
and oc = 0 degrees . 

b. Case 2. Use case 1. influence matrix A and set oC = 3 degrees.^ 

c. Case 3. Fuselage-fanpod-wing with 312 by 58^ influence 
matrix A and c<= 0 degrees. Reused fuselage matrix A of 
case 1, 

d. Case Used the influence matrix A of case 3 and set 

c<= 3 degrees. 

The computing units (CUS) were 5OOO seconds and the central 
processor (CPU) time was 1000 seconds. 

The lines of output were set by the job control card LG^, LC = 10000., 
which should be sufficient for most jobs. 
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PROGRAM SETUP 



- 6, 7^8, 9 card 

“ Case 2, changes in data ending 
with X-last card ' ■ ’ • . 

- Case*''!, decimal' data ending with an 
X-last card (a minus in column one). 

- 7»8,9 card, 

FANPOD PROGRAM. Joh control cards. 


REMARKS: 

1. All data are read in by subroutine DECRD, 

2. Data used by one case are always available for use in - 
succeeding cases unless read over by new data in these cases, 

3. The card containing the last piece of decimal data for a 
case contains a minus in column one. 
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***** SETUP TO COMPILE SOURCE DECK THEN STORE SOURCE AND OBJECT 
DECKS ON THE DATA CELL USING THE UPDATE SYSTEM. 


AOANZXX.5 *250 .70000.482511 *RCST5786P FANPOD 

*notapes*pss 

UPDATE(N) 

RUN76ISA*I=COMPlLE»NL50000l 

REWIN0(NEWPL*LG0J 

copypss. 

'CXIT* ' “ 

REWIN0(NEWPL*LG0) 

COPYPSS. 

V7«8~9) CARO 


(FANPOD SOURCE DECK) 

. . 


{7-8-9) CARO 
GROUP* 12 X# AERO 
OWNER=R.C. SMITH 

ACC0UNT*482511 ~ ' 

WRITE LI0RARY=AO4RCS 
REPLACE SUBSET*UPDATPL 
COPY 1 F FROM FILE=NEWPL 
REPLACE SUBSET»0BJECT 
COPY 1 F FROM FlLE»LGO 

END 

(6-7-8-9) CARO 



#*#** TO RUN PROGRAM WITH TEMPORAV MODIFICAT lOMS 


AOANZXXt 5i4000f60000 .482511 »RCST5786P FANPOD 
♦NOTAPEStPSS ■ 

LlBCOPY*A04RCStOLDPU*UPDATPL. 

L IBC0PYfA04RCS*LlB»0BJECT. 

UPDATE. 

RUN76* I “COMPILE 
CGPY.LlB/RXtLGO. 

RFL( 135000*1100001 
LGO*LC»10000* 

(7-8*9I CARO 
0 
0 

( UPDATE CORRECTIONS! 

0 

( 7-8-9 ! CARO 


. 

( INPUT DATA I 


16-7-8-9) CARO 



****** SETUP FOR PERMANENT MODIFICATIONS 


A04N2XX#5* 100*60000. A82511»RCST5786P FANPOD 
•NOTAPES ♦ PSS — "" ' 

LIBCOPY*AOARCS*OtDPU*UPOATPL. 

UPDATEIF*N» 

RON76IS*I»COMPlLe*NL20000) - 
COPYPSS. 

(7-8-9) CARD 

" 

' . 

< UPDATE CORRECTIONS) 

... 


(7-8-9) CARD 

GROOP*121 * AERO " ■ " 

OWNER«R.C. SMITH 
WRITE LIBRARY«A0ARCS 
REPLACE SUBSET-UPOATPL “ 
COPY IF FROM F ILE=NEWPL 
REPLACE SUBSET«OBJECT 

REWIND INF I LE«LGO 

COPY IF FROM FILE*LGO 
REWRITE LIBRARV*A04RCS 

END : ■■■■■,: ■ 

(6- 7-8-9) CARD 



*««*«» PRODUCTION RUN WITH NO MODIFICATIONS 


AOAN2XX#5#1AOO*60000,482511*RCST5786P FANPOO 
»NOTAPES #PSS 

LI8COPY»A04RCStLlB*OBJECT* 

COPY.Lie/RXtLGO* 

RFtU35000*»0000> 

LG0*LC*10000. _ 

< 7-8-9) CARO 


I INPUT DATA ) 


(6-7-8-9) CARD 



DESCRIPTION OF SUBROUTINES 


NUMBER 

SYMBOL 

DESCRIPTION 

1 ■ 

MAIN- 

Main program controls general flow of program. 

2 

C)6dim 

A control derivation interpolation method for a 
single curve. 

■ 3 

WINGED 

Table lookup of wing planform for X leading edge 
and Chord, 

h 

PFUNC 

Calculate matrix S of P function (special spanwise 
load shape). 

5 

MSj^iLX 

Special Householder method for solving a set of 
linear simultaneous equations (variable columns ' 
of B). 

6 

RDATA 

Read, print and test input data. 

7 . 

DECRD 

Read input data from cards. 

8 

. GEE0M 

Geometry control program. 

9 

BXYZ 

Calculate coordinate of fuselage vortices. 

10 

BQPTS 

Calculate fuselage direction matrices and 
coordinates of control points. 

11 

BCLS ' 

Calculate chordwise load shapes for the fuselage. 

12 

FXYZ 

Calculate coordinate of fanpod vortices. 

13 

PQPTS 

Calculate fanpod direction matrices and coordinates 
of control points. 

Ih 

FCIS 

Calculate chordwise load shapes for' the fanpod. 


WXYZ 

Calctdate coordinate of wing vortices and control 
points. 

' l6 

BRXIZ 

dalculate coordinate of fuselage-wing root section 
vortices. 

17 

FRxyz' 

Calculate coordina-be of faupod-wing root sections 
vortices. 
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18 


RTWI 


Rotate wing root coordinates to the actual chord 
lines. 


19 

TWIST 

Lookup twist angle and calculate C^S and SIN of 
twist. 

20 

' MATCS 

Calculate wing chordwise and spanwise matrices 
(C and S). 

21 

WTZCS 

Calciilate wing thickness slopes from deflections 
(z/c). 

22 

PXYZ 

Calcxilate coordinates of pylon vortices and control 
points. 

23 

PTZCS 

Calculate pylon thickness slopes from deflections 
(z/c). 

24 

Nxrz 

Setup nacelle coordinates. 

25 

O0LMT 

A controlled deviation Interpolation method for 
multiple curves. 

26 

MATA 

Control program for the influence matrix A 
computation routines. 

27 

AQXVB 

Calculate matrix A with Q on X component and 
vortices on fuselage. 

28 

AQXVF 

Calculate matrix A with Q on X component and 
vortices on fanpod. 

29 

AQXVW 

Calculate matrix A with Q on X cotiponent and 
vortices on wing. 

30 

AQXVWR 

Calculate matrix A with Q on X component and 
vortices on wing root section. 

31 

AQWVW 

Calculate matrix A with Q on wing and vortices 
on wing. 

32 

AQWVWT 

Calculate influence of wing thickness due to 
cranks, etc. on the velocity. 

33 

AQXVP 

cklculate matrix A with Q on X component and 
vortices on pylon. 

34 

AQXVFE 

Calculate matrix A with Q on X component and 
vortices on pylon root section 
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35 

AQPVP 

Calculate matrix A with Q on pylon and vortices 
on pylon. 

36 

AQ5CVPT 

Calculate influence of pylon thickness due to 
cranks, etc. on the velocity. 

37 

NACELL 

Control program for nacelle influence matrix A 
routines. 

38 

AQXVN 

Compute matrices X,Y,Z components of nacelle 
matrix A and influence matrices of other components 
on the nacelle. 

39 

XYZ 

Control for X,Y,Z matrices computation. 

ito 

XYZl 

Compute X,Y,Z matrices for SJ less than 0.08. 

hi 

XYZ2 

Compute X,Y,Z matrices using Simpson rule 
integration. 

h2 

BLIP 

Calculate Hasting's approximation for elliptic 
integrals. 

h3 

MATAPE 

Combine influence matrix A and save on l/^ unit 12., 

1+4 

MATE 

Control program for boundary condition matrix B 
routines. 

h^ 

WCAS 

Table lookup for the wing local angle of attack. 

46 

WCZCS 

Calculate wing local angle of attack from 
deflection (z/c) input. 

47 

PCAS 

Table lookup for the pylon local angle of attack. 

48 

PCZCS 

Calculate pylon local angle of attack from 
deflection (z/c) input. 

49 

si^Jlu 

Control program for matrix solution routines. 

50 


Special Householder method for solving a set of 
linear simultaneous eq^uations with matrix A on 
various l/)6 units. 

51 

MSl^LP 

i 

Special Householder method for solving a set of 
linear simultaneous equations with the results 
save on various l/0 units. 

52 

PARTM 

Partision-Householder method for solving a set of 
linear simultaneous equations. 


13 



53 

PLCAL 


BVRCP 

55 

FVRCP 

i 

56 

WDPQ 

57 

WVAP 

58 

PDPQ 

59 

PVAP 

60 

SFC 

61 

TPS 

62 

SPF 

63 

BL0AD 

6h 

FLieiAD 

65 

WLliiAD 

66 

PI^AD 

6? 

IDPAG 

68 

EMLQP 

69 

SKIKF 

70 

SETSF 

71 

CJ^D 


Control program for pressure computation routines. 

Calculate fuselage velocity ratio and pressure 
coefficients at control points. 

Calculate fanpod velocity ratio and pressure 
coefficients at control points. 

Calculate wing linear pressure coefficients. 

Calculate wing nonlinear velocities and pressure 
coefficients with thickness. 

Calculate pylon linear pressure coefficients. 

Calculate pylon nonlinear velocities and pressure 
coefficients with thickness. 

Calculate wing F matrix. 

Calculate wing-pylon leading and trailing edges 
TAN 

Calculate the derivatives of the wing F matrix. 
Calculate the load coefficients for the fuselage. 

Calculate the load coefficients for the fanpod. 

Calculate the load coefficients for the wing. 

Calculate the load coefficients for the pylon. 

Calculate induced drag. 

Computes coefficients for Emlord equations. 
Calculate skin friction drag. 

Setup skin friction drag input. 

Special C0DIM. 


Ih 



INPOT DATA DESCRIPTION 
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IHPUT DESCRIPTION 


LOCATION 

SYMBOL 

DESCRIPTION 

1 

AR 

Wing aspect ratio 

2 

SPAN 

Wing span 

3 

MAC 

Mean aerodynamic chord 

k 

MACH 

ffcich manber 

5 

FCD 

Fanpod chord 

6 

FAA 

Panpod angle of attack in degrees 

7 

XCG 

X center of gravity for moment computation 

8 

WAA 

Wing angle of attack in degrees 

9 

WAAI 

0,0 if wing is flat and 1.0 if wing has 
twist or camber 

10 

WADI 

0.0 if wing camber is described by local 
angle of attack in radians. 1.0 if camber 
is described by z/c. Wing camber is 
described in locations 750 60 1199 * 

12 

PRII 

1.0 if the boundary condition matrix B, and 
the least squared boundary condition matrix 
B L.S, are to be printed. 0.0 if only 
matrix B is to be printed. 

l4 

WSJC 

Value of first J in the chordwise direction 


on the wing to be used in the lifting 
solution. This value should be such that 
the first control point is located at 
about x/c=.05. This value of J should be 
included in the list at loc. I 66 O-I 689 . 

The thickness solution will use all of the 
control points listed at loc. I 66 O-I 689 . 

15 FMFI This input indicates if the multiplication 

factors listed in loc, 6CK)-63^ are the 
same as those listed in loc. 635~669» If 
they are, loc. 635-669 may be omitted. 
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16 


PCPI 


This input indicates if the fanpod cross ^ 
sections described in loc. 90*56^ are to 
be placed -L to the camber line described 
in loc. 670-TOiv or _u to the fanpod X axis. 
Use 0.0 if sections are to be placed JL to 
the camber line and 1.0 if they are to be 
placed -L to the X axis. 

17 ¥ 14>1 This input indicates the type of vrotex 

grid input to be used to describe the fan- 
pod vortex grid in the chordwise direction.' 

I If the grid is to be placed at equal in- 

crements of X, input -1.0. No input is 
needed in loc. l460-l609 if 0.0 or -1.0 is 
input here. If the grid is to be placed 
at X stations other than at equal increments 
of or X, input a 1.0 here and list the 
X stations in loc. l460-l609* 

18 FTHI This input indicates the type of fanpod 

vortex grid to be used to describe the , 
lateral vortex grid distribution. If the 
grid is to be placed at equal roll angles 
input 0.0 here and no input is required 
in loc. 1610-1659* If a lateral vortex 
grid other than equal roll angles is 
desired, input 1.0 and list the values 

in loc. 1610 - 1659 * 

19 FVPI Input here the number of vortices in the 

spanwise direction on the pylon minus the 
number of span stations •where the pressures 
are to be conrouted on the pylon. This in- 
put is used to limit the span'wise pressure 
calculation to those points on the actual 
pylon rather than those on the pylon exten- 
sion, which is inside the nacelle. 

20 FNXS Input the number of chordwise stations 

where the fanpod cross sections are to be 
described. The maximum number is 29* 

21-49 XS]_,XS2/ ‘ * List of fanpod chord stations where the 

fanpod cross sections are to be described. 

50 FUTY. Input the number of lateral fanpod stations 

' where the fanpod cross sections are to be 

described. The maximum number is 36. 
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51-86 




87 

t 

F|?ix 

88 

Fi^y 

89 

F)j5z 

90-564 

B1,R2^* 

565 

FNXM 


566-599 XMCi,XMC 2, 


600-63i^ ™Cx,^MC2,”* 


List of fanpod lateral stations vhere the 
fanpod. cross sections are defined.. The 
list of o’s are input from 0.0 to 360.0 
degrees. 

X location of the nose of the starboard 
fanpod. 

Y location of the nose of the starboard 
fanpod. 

Z location of the nose of the starboard 
fanpod. 

List of radii for fanpod at XS and ® 
locations. Input radii for first XS 
station and all of the©’s from 0.0 to 
360.0 degrees, then the second XS station 
and all the©'s again. Continue this 
process for all of the XS stations. 

Input the number of chordwlse fanpod 
stations where the IM and ZM multiplication 
factors will be applied and where the fan- 
pod camber is defined. The body described 
by the radii in loc. 9O-56U will be multi- 
plied by the YM and ZM multiplication 
factors in the Yp and Zp directions, 
respectively. The fanpod camber will then 
be added to obtain the final description of 
the fanpod. It is not necessary to use the 
multiplication factors as a means of describing 
the fanpod. However, if the fanpod cross 
sections can be represented by a series of 
ellipses, the YM and ZM distributions can be 
used to input the major and minor axses of 
the elliptical cross sections. For this 
case only four radii, equal to unity, need 
be input. The maslmum number of chordwise 
stations is 3^. 


List of chordwlse stations where the fan- 
pod multiplication factors and camber are 
defined. 


List of m fanpod multiplication factors. 
The Y components of the radii defined in 
loc, 90-564 will be multiplied by these 
factors. s 
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635-669 

670-704 

705 

706-729 

730 

731-749 

750-1199 


ZMCj_,ZMC 2^ * * * List of ZM feinpod multiplication factors. 

The Z ccanponents of the radii defined in 
loc. 90-564 will be multiplied by these 
factors. 

FZCj_,FZC2j * * ‘ Distribution of fanpod camber. This camber 

, will be applied to the fanpod after the 

radii defined in loc. 90-564 are multiplied 
by the multiplication factors defined in 
loc. 600-634 and loc. 635-669. If the radii 
as given in loc. 90-564 are for the actual 
• fanpod and the use of multiplication factors 
or camber is not necessary^ set FMXM=1.0 , 
M2^=1.0, ZMi= 1.0, and FZCi=0.0. 

WHX The number of x/c stations where the wing 

mean camber surface will be defined in 
loc. 750-1199. The maximum number is 23. 

The array of x/c values where the wing mean 
camber surface will be defined in loc. 750- 
1199. The array must be in ascending order 
and must include the leading and trailing 
edge points. 

WNE The number of stations where the wing 

mean camber surface will be defined in 
loc. 750-1199. The maximum number is I5. 

■ The array of values where the wing mean 

' * camber surface will be defined in loc. 750- 

1199. The array must be in ascending order; 
and the range must be such as to enclose * 
all the spanwise control points. 

ihis table defines the wing mean camber sur- 
face in terms of local angle of attack in 
radians or in terms of z/C. The contour 
described here excludes twist and flap 
deflections. Ihe twist is defined in loc. 
1970-I984. The flap deflections €ire given 
in loc. i960 aind I965. If z/C is input the 
program uses CODIM, described in Appe^ix A, 
to determine the local angles of attack. If 
the contour is described at stations other 
than the control point locations, the local 
angles of attack are obtained by straight 
line interpolation on Z in the spanwise 
direction and then by using CODIM in the 
chofdwise direction. The local angles of 
attack or z/c's are input for the first 
station defined at loc. 731 and the x/c's 
defined at loc. 706-729, then the second 
station, and etc. 


X/Ci,x/C2, • • * 
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X200 


1201 

1202 

1203 


1204 


1205 


1206 


1207 


1208 


W?iY 

W^Z 

WITji 


WITI 


wmff> 


WKVSI 


WITB 


XHB0 


X location of wing apex. 

Y location of wing apex. 

Z location of wing apex. 

This location specifies the number of the 
fanpod, meridian line to which the outboard 
panel of the wing attaches. The meridian 
lines are numbered in ascending order in 
the clockwise direction around the fanpod 
when looking at the starboard fanpod from 
rear to front. The meridian line on top 
of the fanpod is considered the last.. 

This location specifies the number of the 
fanpod meridian line to 'vdiich the inboard 
panel of the wing attaches. The meridian 
lines are numbered in ascending order in 
the clockwise direction around the fanpod 
when looking at the starboard fsuipod from 
rear to front. The meridian line on top 
of the fanpod is considered the last. 

Number of vortices in the spanwise direction 
on the outboard wing panels . This number 
includes the vortices in the outboard root 
sections as well as the outboard planar 
panels. Both starboard and port wing panels 
are Included in this number. This input is 
an even integer for wing only case and an 
odd integer for all other combinations. The 
maximum number is 50. 

Number of vortices in the spanwise direction 
on the inboard wing panels. Both starboard 
and port wing inboard root and planar 
sections are included in this number. This 
input is an odd integer if the combination 
contains no fuselage and an even integer 
with a fuselage. The maximum number is 50. 

This location specifies the number of the 
fuselage meridian line to which the wing 
attaches. The meridian lines are numbered 
in ascending order in the clockwise direction 
around the fuselage when looking from the 
rear to front. 

Number of in outer wing table in , 
loc. 1210 - 1239 . 
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1209 


XNEI 


Number of in inner wing table in 
loc. 12UO-I269. 


1210-1269 


This input describes the wing planform. If 
a wing alone case is being analyzed, the 
X distances from the wing apex to the wing 
leading and trailing edges are input at a 
series of span stations. The leading and 
trailing edges are straight lined between 
the input stations. If a freestream edge 
resxilts from a flap chord extension or nacelle 
planview, at any station other than the 
center, or tip, input the freestream edge over 
£tn increment .0001. The .9^ stations 

where the wing planform is defined are 
input for 0-s-^s 1.0, Input the -jg station, then 
the X distance of the leading edge, and 
then the X distance of the trailing edge. ’ 
Repeat this for each station. 


If a fanpod is Included in the analysis, the 
wing planform is described as an inboard and 
outboard panel. Each of these panels is 
divided into a root section and planar panel. 
For the outboard panel the leading edge of 


the. root section is divided into three evenly 
spaced divisions. The width of these divisions 
is eaual to 9><^p=2Cl-1’oi )/(WNVS)^-l), where 
is the station where the leading edge 
of the outboard panel attaches to the fanpod. 


■^Oi is input in loc. 1210, ^^0 i“ loc. 1213j 

+ 221^^0 in loc. 1216, and<foi + 3^q in • 
loc. 1019. The X distances of the wing leading 


edge from the wing apex af^oii 

and '^01+3^'^ input at loc. 1212, 
1214, 1217> and 1220, respectively. The X 
distances of the wing trailing edge from 


the wing apex at snd '^0i'*’3^^^ are input 
at loc. 1212 and 1221, respectively. 


Sqi ai3d S(io are input at loc. 1215 and 1218; 
respectively. Where Soi and S^g are perpen- 
dicular distances from the outer fanpod ^ 
trailing edge fillet chord line to the wing 
trailing edge. The chord line is drawn 
between the trailing edge points at-^Q^ and 
^0i +3^'^0* Sqi and S02 are measured frm the 
chorii lirie to the wing trailing edge ats 
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1270 


1272 


points 1/3 and 2/3 of the distsmce along the 
chord line going from to respec- 
tively. A sketch showing these quantities 
is given in the input format description at 
loc. 1220 . The planar wing panel is described 
in the same manner as the wing alone case. 

The inhoai^ root section leading edge is 
also divided into three evenly spaced divi- 
sions. The width of these divisions is 
equal to ^s^=2'^jj/(WMVSI-l), where is the 
station where the leading edge of the 
inboard panel attaches to the fanpod. The 
inboeurd panel input starts in loc. 12 ^ 0 . The 
planar portion of the inboard panel is input 
in the same manner as the wing alone case. 

The inboard root section starts 
At the X distances from the wing 

apex to the leading and trailing edges are 
input. At'T=-^- 2 ^^ and the X 
distances from the wing apex to the leading 
edge and the &[ and distances are input, 
respectively. The distances S£ and S'2 £tre 
obtained for the Inboard fanpod fillet in 
the same manner as S(i)^ and for the out- 
board fanpod fillet. If there are no fanpod 
fillets on the wing trailing edge the S' 
values are equal to zero. At'^jj the X 
distances from the wing apex to the leading 
and trailing edges are input. A sketch of 
the inboard root section is shown in the 
input format description. 

WNVC Input the number of vortices and sources in 

the chordwise direction. Usually 20 is 
enou^. The maximum number is 1 * 0 . 

WNPC This is the number of net pressure coefficients 

to be confuted in the chordwise direction 
on the wing. The List of x/C's where the 
coefficients are con^juted is given in loc. 
1870-1899. The maximum number is 30. This 
input is usually unnecessary for the thick 
wing case since the net pressure coefficients 
are printed at the control point locations. 
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1273 


WHPS 


This is the number of net pressure coefficients 
to he ccmputed in the spanwise direction on 
the wing. The list of '>?, stations vhere the 
pressure coefficients are printed are given 
at loc. 1900-1929 • The maximum number is 
30. This input is unnecessary if a span- 
wise discrete analysis is done. If a thick 
wing analysis is done the pressure coefficients 
are autcmatically printed at the control 
point locations making this input unnecessary. 

1274 FNVX This is the number of vortex grid lines in 

the longitudinal direction on the fanpod. 

There is one more line than the number of 
vortices in the longitudinal direction. ' Thfe 
nose 6ind tail end of the fanpod must be \ 
included. The maximum number is 100. The 
list of X grid stations is given in loc. l460- 

1609. 

1275 FMVY This is the number of lateral vortex grid 

lines aroimd the fanpod. This number shouJd 
be kept as small as possible, 8 to 12, in 
order to keep ccn^jutlng time down. The list 
of (© angles for the lateral grid lines is , 
given in loc. I6l0-l659* The maximum number 
is kO. 


1276 FHDY This is the nxanber of divisions a circum- 

ferential fanpod vortex line segment is 
divided into between adjacent lateral vortex 
grid lines. The number is an odd integer. 
Usually equal to 3 to 7. These divisions 
permit the fanpod vortex grid to better 
map the actual contour. 

1277 WNJC This is the number of control points per 

chord on the wing. The list of control 
points is given in loc. I66O-I689. The 
maximum number is 30. Ususilly ¥tWC«2 ‘WNU. 

1278 WTUS This is the mmiber of control points per 

semispan on the wing. The list of control 
point locations is given in loc. I69O-I7I9. 
Usually Wins'® 2 WKW. This input is uuanec- 
esseiry if a discrete solution is done in 
the spanwise direction on the wing. The 
maxjtmim nimber is 30 . 
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12T9 


PMJX 


1280 


1281 


1282 


This is the number of control points in the 
longitudinal direction along a meridian line 
on the fanpod. The list of control points 
is given in loc. 1720-1869* Usually FKJX ^ 

2 FNF. The maxlmimi number is 75* 

WNU This is the number of assumed vorticity 

functions in the chordwise direction on the 
wing. The functions are C0T*/2> 5^2®, 

plus two flap functions. The number of SINE 
terms used is equal to (WNU-l) minus the 
number of flap terms designated in loc. i960 
and 1965 . Usually 6 to 8 functions in total 
are sufficient. The maximum number is 10. 

WWW The number or assumed spanwise vorticity 

functions on the wing. If this input is 
zero, a discrete spanwise wing solution will 
be obtain^. The standard functions used 
are , where the power W is input in 

loc. 1285 - 129 ^. Also, special functions 
can be used to accoimt for discontinuities 
in the leading or trailing edge sweep, flaps, 
or fanpod-wing juncture. These fmictions 
are designated in the loc. 1285-129^ list 
by the location number in the input where 
they are described. The special spanwise 
functions are described in loc. 1930 , 1935 > 

19^0, 1945, 1950, and 1955. The maxiraimi 
number of spanwise functions is 10 . 

PKF The number of chordwise voirticity functions 

• used along each meridian line. There are 

standard functions listed in the input format 
description at loc. 1295* Also, special 
functions can be input if the standard 
functions are insufficient. The special 
functions are described at loc. I310, 136O, 
and l4l0. The special functions are designated 
in the vorticity function list at loc. I295- 
1319 "by the input location where they are 
described. The maximum number of fanpod 
longitudinal functions is 25, 
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1285 - 129 ^ 

1295-1319 


Ilt60-l609 

1610-1659 

1660-1689 


Wi,W2*** This is the list of spanwise vorticity 

functions used on the wing. The functions 
desired are indicated by the power W of 
the series <>yV / - or by the input location 

number where a special function is described; 
such as 1930, 1935, 19^0, 1945, 1950, or 
1955- Since only symmetrical loading 
conditions can be treated W must always be 
an even integer. The elliptical loading 
is designated by W=0, The usual values of 
W are 0, 2, 4, 6, and 8. 

PT,F2‘-- This is the list of longitudinal functions 

, used on the fanpod. The functions available 
are designated as follows: 


F for 

standard Functions 

F for Linear 

1.0 

COT0/2 


2.0 

COT(9O-0/2) 

Cx/c)2 

3.0 

SIN0 

(x/c)3 

4.0 

COS0 

(x/c)i 

5.0 

SIN20 

(x/c)5 

6.0 

COS20 

(x/c)5 


Functions 



PVXx,FVX 2> * * • This is the list of X stations for the faur* 

pod vortex grid. The list must include 
Xj<=»0 and Xp^Cp. The maximum number is 100. ; 

FVTi,FVT 2 > * ♦ • This is the list of lateral vortex grid 

stations. This list of 's refer to the 
fanpod body before the multiplication 
factors and camber are applied. The 's 
are input from 0.0 to sum value less than 
360 degrees. The first must be zero. 

The maximum number is 4o. 

WJCi,WJC2^ * * • This is the list of control points in the 

chordwise direction on the wing. The control 
point is designated by the number of the 
vortex aft of the leading edge on vdiich the 
control point is placed. The maximum 
number is 30. However, a particular case 
can never exceed WWVC. in loc. 1270. 
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1690-1719 WJSi,WS2,‘ 


1720-1869 FJXi,FJX2, • • * 


1870-1899 WPCi,WPC2 , • • * 


1900-1929 WPSl, WPS2, • • * 


1930 


1931 



This is the list of control points in the 
spanwise direction on the ving. Since the 
configuration is sjonmetrical about the X-Z 
plane, control points are only placed on 
the starboard side. The control point is 
designated by the number of the vortex 
inboard of the starboard wing tip on which 
the control point is placed. The maximum 
number is 30. However, in a particular 
case the number cannot exceed (WNVS+l )/2 
for the wing alone case or in the csise of 
a fanpod on the configuration ('WllVS 0 'HnnVSI+l)/ 2 . 
This input is unnecessary if a discrete 
solution is done in the spanwise direction 
on the wing. 

This is the list of control points on the 
fanpod in the longitudinal direction. The 
control point is designated by the number 
of the vortex aft of the fanpod nose on 
which the control point is placed. The 
m axi TUI im number is 75, However, the number 
cannot exceed FKVX- 1 . 

This is the list of x/c stations on the 
wing wiiere the net pressure coefficients are 
printed. The maximum number is 30. Unneces- 
sary if wing has thickness. 

This is the list of stations on the wing 
where the net paressure coefficients are 
printed. The maximum number is 30 . This 
input is not necessary if spanwise solution, 
is discrete or if wing has thickness. 

Indicator for special wing spanwise vorticity 
function. If "P" function is used input 0 . 0 , 
if trailing edge flap function is used 
input- 1 . 0 , Eind if leading edge flap or 
Krueger function is used input 1 . 0 . 

ETA station where break in leading and 
trailing edge of wing occurs. This input 
is associated with a "P" function. Leave 
blank for flap functions . ^ should be at 
a control point location. 
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1932 

1933 

1935-1933 

19 ^- 19^3 

1945 - 19^8 

1950-1953 

1955-1958 

1960 

1961 

1965 


Rl<> Ki The left hand, range of influence of the "P” 

function downvrash is input if loc . 1930 is 
0.0. For this case RL=.02 is a suggested 
value. If a leeidlng or trailing edge flap 
function is indicated in loc. 1930, input 
the station of the inboard discontinuity 
in local angle of attack due to the flap' 
deflection. Ibis ETA station should occur 
at the edge of a vortex strip. 

fQf Yq Th® right hand range of influence of the 

"P” function downvash is input if loc. 1930- 
is 0.0. For this case RR».02 is a suggested 
value. If a leading or trailing edge flap » 
function is indicated in loc. 1930, input 
the station of the outboard discontinuity* 
in local angle of attack due to the flap 
deflection. This ETA station should occur at 
the edge of a vortex strip. 

For second special wing spanwise vorticity 
function. Input similar to locations 1930~ 
1933. 

For third special wing spanwise vorticity 
function. Input similar to locations 1930- 
1933. 


For fourth special wing spanwise vorticity 
function. Input similar to locations ' ^ 

1930-1933. 

For fifth special wing spanwise vorticity 
. function. Input similar to locations 

1930-1933. 

For sixth special wing spanwise vorticity 
function. Input similar to locations 

1930-1933. 

^ f Deflection of wing trailing edge flap in 

radians. 

(X/c)f (x/c) location of wing trailing edge flap 

hinge line. This location should occur at 
a vortex station. 

.Cc Deflection of wing leading edge flap in 

radians. 
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1966 


1970 - 1981 + 

1985-1999 

2000 

2001-2024 

2025 

2026-2049 

2050-2499 

2490 

2491 




1 ^ 2 ^*** 


jH ZLE1j42LE2j • • * 


NXC 


(X/C)1,(X/C)2,-** 


(x/c) location of wing leading edge flap 
hinge line. This location shoiild occur 
at a vortex station. 

Wing twist table. Wing twist in radians 
is input for the stations listed in 
loc. 731 - 745 . 

Delta Z of wing leading edge table. 7.T.TC 
is input for ^ stations listed in loc. 
loc 731 - 745 . 

Number of x/c stations \diere wing thickness 
is described. The maximum number is 23. 
CODIM is used to interpolate between input 
data in the chordwiae direction to obtain 
the thickness and slope of thickness at 
the source lines. 

List of (x/c) stations where wing thickness 
is described. 


NETA Number of stations where wing thickness 

is described. The maximum number is 23* 
Straight line interpolation is xxsed in the 
spanwise direction to obtain the thickness 
and slope of the thickness at the source 
lines , 

'^l,'^,*** List of stations idiere wing thickness is 

described. 


(z/c)^^, (z/c) 2 > • • • Wing thickness table. The wing thickness 

is input as z/C at the first station 
listed at loc. 2026 and all the X/C stations 
listed at loc. 2001-2024. The z/c is then 
input for the second span station, etc, 

ATP 1.0 if pylon attaches to fuselage, 

2.0 if pylon attaches to fanpod. 

3.0 if pylon attaches to wing, 

PITH This location specifies the number of the 

fuselage or fanpod meridian line to which 
the pylon attaches. The meridian lines are 
numbered in ascending order in the clock- 
wise direction when looking from rear to 
front. 
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2h^2 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 


PDA 


PHT 


PizJx 

Pfir 

Pf6z 

PAA 


PAAI 


PADI 


PNVC 


PNVS 


PUN 


Pylon dihedral angle in degrees* The 
angle is measured from the Z-axis in the 
clockwise direction when looking from 
rear to front. 


measured, from the fanpod X-Y 
plane to the top of the nacelle. Including 
he pylon extension through the nacelle if 


X location of pylon apex. 


Y location of starboard pylon apex. 

Z location of pylon apex. Set equal to zero. 

Pylon angle of attack in degrees. This 
a^le is positive in the counter clockwise 
direction if the right hand rule is used about 
the positive Z axis. 


Pylon local angle of attack indicator. 
Input 0.0 if pylon is flat. Input 1.0 if 
pylon has twist or camber. 


Pylon camber table indicator. Use 0.0 if 
camber is input as local angles of attack 
in^radians. Use 1.0 if camber is input as 


vortices and source lines in the 


cho^wise direction on the pylon, 
maximum number is 19, 


The 


^ber of vortices and source line segments 
^ the spanwise direction on the pylon. 

The maxlniuni number is 20* 


Number of chordwise assumed vorticity 
functions on the pylon. Similar to loc. 
for the wing. Maximum number is 10. 


1280 
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2510 


PSJC 


The value of the first control point in the 
chordwise direction on the pylon to he used 
in the lifting solution. This input is 
similar to that for the wing at loc. l 4 . A 
more complete description of the input is 
given there. 


2511 

pure 

Number of control points in the chordwise 
direction on the pylon. The maximum number 
is 18. 

2512-2529 

PJCi,PJC2, ‘ • • 

List of pylon control points in the chord- 
wise direction. This input is similar to 
loc. 1660-1689 for the wing. 

2530 

PMX 

Number of s/C stations on the pylon at 
which the pylon camber is described. The 
maximum number is 19- 

2531-25^9 

PXCi,PXC2, • • • 

List of x/c stations on the pylon at which 
the pylon camber is described. The pylon 
camber is described at loc. 2570 - 2939 * 

2550 

PHE 

Number of stations on the pylon at which 
the pylon camber and twist are described. 
The maximum number is 19 • 

2551-2569 

^l.'^2,-*- 

The list of stations on the pylon at which 
the pylon camber and twist are described. 

The twist is described at loc. 29 ^- 2959 * 

2570-2939 

PADj^jPADg, • • • 

Pylon camber table. The camber is input 
in terms of local angle of attach in radians 
or in terras of z/C at the x/c euid stations 

given at loc. 2531 - 25^9 and loc. 2551 - 2569 , 
respectively. The camber is input for the 
first station and a .1 1 of the (Vc)'sj 
then the second '*z station and all of the 
(x/c)'s, etc. This table is unnecessary 
if wing is flat. 

291*0-2959 


Pylon twist table. The pylon twist is 


given in radians at the stations listed 
at loc. 2551-2569. 
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2960-2965 


Pylon planform table. The pylon planform 
is input in the same vay as the outboard 
panel of the wing. Refer to input loc. 
1210 - 1239 • Ihe X distances of the leading 
and trailing edges eire relative to Piz 5 x. The 
pylon 's are relative to P^Z and equal 

to Yp/PhT- 

3000 

MC 

Number of x/c stations on the pylon where 
the pylon thickness is defined. The maxi- 
mum number is 19* 

3001-3019 

(X/C)i,(x/C)2,--- 

List of Vc stations on the pylon where 
the pylon thickness is defined. 

3020 

I 4 ETA 

Number of ^ stations on the pylon where 
the pylon thickness is defined. The maximum 
number is I8. 

3021-3039 

‘ ♦ 

List of'^ stations on the pylon "vdaere the 
pylori thickness is defined. 

30 k >-3369 

(z/C)i,(z/c) 2 ,-“ 

Pylon thickness table. The pylon thickness 
is input as z/c at the x/c stations listed 
at loc. 3OOI-3OI9 and the stations listed 

at loc. 3021 - 3039 « The z/c',s are input at 
the first station and all of the X/C 
stations, then the second-^, and etc. The 
Z/c's at the source lines are obtained from 
these inputs by straight line interpolation 
in the spanwise direction and CODIM in 
the chordwise direction. 

3380 

XLFX 

Fanpod X direction area of influence. This 
input specifies the X range of Influence 
of a vortex in terms of its grid length. 

The vortex influence is ccanputed for those 
control points within this range. Those 
control points outside of this range will 
be assigned zero influence from the vortex. 

3381 

XLFY 

Panpod Y-Z direction area of influence. 

This Input specifies the range of influence, 
in planes perpendicular to the X axis of a 
fanpod vortex in terms of its grid width. 

The vortex influence is computed for those 
control points within this range. Those 
control points outside of this range will 


be assigned zero Influence from the vortex. 
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3381 XLW 


3382 XLP 


3383 XLNC 


3385 XLHR 


3386 XLBX 


3387 XLBY 


Wing Y-Z direction area of influence. This 
input specifies the range of influence, in 
planes perpendicular to the X axis, of a wing 
vortex in terms of its grid width. The vortex 
influence is computed for those control 
points within this range. Those control 
points outside of this range will he assigned 
zero influence from the vortex. 

Pylon Y-Z direction area of influence. This 
input specifies the fange of influence, in 
planes perpendicular to the X axis, of a 
pylon vortex in terms of its grid width. 

The vortex influence is computed for those 
control points within this range. Those 
control points outside of this range will 
he assigned zero influence from the vortex. 

Nacelle X direction area of influence. 

This input specifies the X range of influence 
of a source frustum in terms of the frustum's 
average diameter. The frustum's influence 
is coD5)utea for those control points within 
this range. Those control points outside 
of this range will he assigned zero influence 
from the frustum. 

Nacelle Yu direction area. of influence. 

This input specifies the range of influence, 
in planes, perpendicular to the X axis, of 
a source frustum in terms of the frustum's 
average diameter. The frustum's influence 
is con^mted for those control points within 
this range. Those control points outside 
of this range will he assigned zero influence 
from the frustum. 

Fuselage X direction area of influence. This 
input specifies the X range of influence 
of a vortex in terms of its grid length* 

The vortex influence is computed for those 
control points within this range* Those 
control points outside of this range will he 
assigned zero influence from the vortex. 

Fuselage Y-Z direction area of influence. 

This input specifies the range of influence, 
in planes perpendicular to the X axis of a 
fuselage vortex in terms of its grid width. 

The vortex influence is conputed for those 
control points within this range. Those 
control points outside of this range will 
be assigned zero influence from the vortex'. 


32 



3390 

HB. 

Number of bodies in the nacelle representa-. 
tion. IThis input is either one or two. 

3391 


The X location of the nacelle lip. 

3392 

YNjrf 

The Y location of the starboard nacelle 
Xu-Yjj plane. 

3393 

ZN0 

The Z location of the axis of rotation of 
the nacelle . 

339^^ 

XNPl 

Number of points used to define the nacelle 
contour. Maximum number is XNPl=l40-XNP2. 

3395 

XNPg 

Number of points used to define second 
nacelle body contour. Maximum number is 
XNP2=140-XKP1. 

3^00-35^9 

XBlx>XBl2> • • • 

List of Xjj con5)onent8 of the points describing 
the nacelle contour. These points are 
input from the trailing edge down aucound 
the internal surface and then over the 
external surface in a clockwise direction 
as shown in the sketch in the input format 
description. 

3550-3699 

YBlx^ 'fS1.2^y • • • 

List of Yji components of the points 
describing the nacelle contour. These 
points are input in the same seq.uence as 
the Xjj points. All of these Inputs are 
positive . 

3700-3849 

XB2x>XB22^ * ' * 

List of Xff components of the points 
describing the second nacelle body contour. 
These points are input from the nose to 
the tail end of the body as shown in the. 
sketch in the input foimat description. 

3850-3999 

YB2i, 1S>22y • * • 

List of Yjj eon^jonents of the points describing 
the second nacelle body contour. These 
points are input in the same sequence as 
the Xn points for this body. All of these 
inputs are positive. 

4000 

IDB 

Fuselage indicator. 

If 0.0, component does not exist. 

If 1.0, calcxilate influence matrix A. 

If 2.0, use component influence matrix A 
from prior case. 
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4001 


4002 

4003 

4004 

4005 

4006 

4007 

4008 

4009 


4010 


IDF 

Fanpcxi indicator. Same specification 
as above. 

IDW 

Wing indicator. Same specification as 
above. 

IDP 

Pylon indicator. Same specification as 
above . 

IDH 

Nacelle indicator. Same specification as 
above. 

BCD 

Fuselage chord. 

BAA 

Fuselage angle of attack in degrees 

BMFI 

This input indicates if the multiplication 
factors listed in loc. 4600-4634 are the 
same as those listed in loc. 4635-4669. 

If they are, loc. 4635-4669 may be omitted. 

BCPI 

This input indicates if the fuselage cross 
sections described in loc. 4090-4564 are to 
be placed J_to the camber line described 
in loc. 4670-4704 or J- to the fuselage X 
axis. Use 0,0 if sections are to be placed 
-1- to the camber line and 1.0 if they are to 
be placed to the X axis. 

WUfil 

This input indicates the type of vortex 
grid input to be used to describe the fuse- 
lage vortex grid in the chordwise direction. 
If the grid is to be placed at equal incre- 
ments of X, input -1.0. Wo input is needed 
in loc. 4735-4884 if 0.0 or -1.0 is input 
here. If the grid is to be placed 
at X stations other than at equal increments 
of jZS or X, input a 1.0 here and list the 
X stations in loc. 4735-4884. 

BTHI 

This input indicates the type of fuselage 
vortex grid to be used to describe the 
lateral vortex grid distribution. If the 
grid is to be placed at equal roll angles 
input 0.0 here and no input is required 
in loc. 4885-4904. if a lateral vortex 
grid other than equal roll angles is 
desired, input 1.0 and list the values in 
loc, 4885-4904. 
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4015 

BOX 

X location of the nose of the starboard 
fuselage , 

4oi6 

BQY 

Y location of the nose of the starboard 
•fuselage. 

4017 


Z location of the nose of the starboard 
fuselage . 

4020 

BNXS 

Input the number of chordwise stations 
where the fuselage cross sections are to be 
described. The maximum number is 29* 

4021 -4o 49 

XSi,XS2,-** 

List of fuselage chord stations where the 
fuselage cross sections are to be described. 

4050 

BNTY 

Input the number of lateral fuselage stations 
where the fuselage cross sections are to be 
described. The maximum number is 36. 

4051-4086 


List of fuselage lateral stations where the 
fuselage cross sections are defined. The 
list of©'s are input from 0,0 to l80,0 
degrees. 

4090-4564 

R1,R2, «*■ 

List of radii for fuselage at XS and 
locations. Input radii for first XS 
station and all of the <S's from 0,0 to 
180.0 degrees, then the second XS station 
and all the (5>'s again. Continue this 
process for all of the XS stations. 

45,65 


Input the number of chordwise fuselage 


stations where the YM and ZM multiplication 
factors will be applied and where the fuse- 
lage camber is defined. The body described 
by the radii in loc. 4090-^564 will be multi- 
plied by the YM and ZM multiplication factors 
in the Yp and Zp directions, respectively. 

The fuselage camber will then be added to 
obtain the final description of the fuselage. 
It is not necessary to use the multiplication 
factors as a means of describing the fuselage. 
However, if the fuselage cross sections can 
be represented by a series of ellipses, the 
YM and ZM distributions can be used to input 
the major and minor axses of the elliptical 
cross sections. For this case only four 
radii, equal to unity, need be input. The 
maximum number of chordwise station is '34, 
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4566-U599 XMCi,XMC 2 » * • • List of chordwise stations where the fuse- 

lage multiplication factors and camber are 
defined. 

i(600-463U YMCi,YMC 2, • * • List of fuselage multiplication factors. 

The Y c exponents of the radii defined in 
ioc. 4090-4564 will be multiplied by these 
factors 

4670-4704 BZCi,BZC 2> • • • Distribution of fuselage camber. This 

camber will be applied to the fuselage after 
the radii defined in loc, 4090-4564 are 
mviltiplied by the multiplication factors 
defined in loc. 4600-4634 and loc. 4635-4669* 
If the radii as given in loc. 4090-4564 are 
for the actual fuselage and the use of 
multiplication factors or camber is not 
necessary- set BHXM=1.0, YMi=1.0, ZMi^l.O, 
and BZCi=0.0. 

4705 BDfVX This is the number of vortex grid lines in 

the longitudinal direction on the fuselage. 
There is one more line than the number of 
vortices in the longitudinal direction. The 
nose and tail end of the fuselage must be 
included. The maximum number is I50. The 
list of X grid stations is given in 
loc. 4735-4884. 

4706 ENVY This is the number of lateral vortex grid 

lines around the fuselage. This number should 
be kept as small as possible, 8 to 12, in 
order to keep computing time down. The list 
of angles for the lateral grid lines is 
given in loc. 4885-4904. The maximum number 
is 20. 

4707 BITOV This is the number of divisions a circum- 

ferential fuselage vortex line segment is 
divided into between adjacent lateral vortex 
grid lines. The mmiber is an odd integer. 
Usually equal to 3 to 7. These divisions 
permit the fuselage vortex grid to better 
map the actual contour. 

4708 BNJX This is the number of control points in the 

longitudinal direction along a meridian line 
on the fuselage. The list of control points 
is given in loc. 4095-4979. Usually BItJX 
2 BKF. The maximum nvmber is 75* 
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^709 BKF 


k710-hj3h 


J+735-i^884 BVXi,BVX2,*“ 


i*885-i+90i; BVti,BVT2, • ^ • 


14905-1*979 BJXi,BJX2, • • • 


The nianber of chordwise vprticity functions 
used along each meridian line. There are 
standard functions listed in the input format 
description at loc 4710. Also,, linearly- 
varying functions over segments of the fuse- 
lage can be used. These have been shown to 
improve the numerical stability in cases run 
in the LAAD wing-body program. The maximum 
number of fuselage longitudinal functions 
is 25. 


This is the list of longitudinal functions 
used on the fuselage. The functions avail- 
able are designa-bed as follows; 


P for Standard Functions 

1.0 CCfl^/ 

2.0 COT(90-!2S/2) 

3.0 SINjS 

4.0 COS^ 

5.0 SII ^0 

6.0 COS20 


F for Linear Functions 


(x/c)i 

(x/c)2 

(Vc)3 

(x/c)l4 

(x/c)5 

(x/c)6 


This is the list of X stations for the fuse- 
lage vortex grid. The list must include 
BVX=0.0 and BVXjf=BCD. The maximum number 
is 20. 


This is the list of lateral vortex grid 
stations. This list of <s>'s refer to the 
fuselage body before the multiplication 
factors and camber are applied. The 's 
are input from 0.0 to sum value less than 
180 degrees. The first must be zero. 

The maximum number is 20. 

This is the list of control points on the 
fuselage in the longitudinal direction. The 
control point is designated by the number 
of the vortex aft of the fuselage nose on 
which the control point is placed. The 
maximum number is 75. However, the number 
cannot exceed BWVX-1. 
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ADDITIOML DATA FOR SKIH FRICTIOH DRAG 


LOCATION 

SYMBOL 

4980 

TPS 

4981 

PFS 

4982 

CK 

4983 

TRID 

4984 

KS 

4985 

TAU 

4990-4994 

XTRLi,XTRL2* 

4995.4999 

TCMi,TCM2^ • * 


DESCRIPTION 

Free stream static temperature in degrees 
RANKTNE. If TPS is set to 0.0, the skin 
friction drag calculation is "bypassed. 

Freestream static pressure in (^/PT^) 

Airfoil thickness correction. Usually 
CK=2.0 for airfoils with maximum thickness 
at 30 percent choi^ and CK=1.2 for NACA 64 
and 65 series airfoils. 

Transition from laminar to turbulent point 
indicator. If -1.0, transition points in 
loc. 4990-4994 are input. If 0.0, the 
natural flat plate transition points are , 
calculated. 

Equivalent sand grain height in feet. 

Turbulence intensity. If TPIE^-1.0, this 
input is not required. 

The X transition point over length (x/c) 
for the fuselage, fanpod, wing, pylon and 
nacelle respectively. If TRID=0,0, these 
data are not required. 

The maximum thickness over length (t/c) 
for the fuselage, fanpod, wing, pylon and 
nacelle respectively. 
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SAMPLE INPUT DATA SHEETS 
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FORTRAN FIXED 10 DIGIT DECIMAL DATA 


DECK NO. 

NUMBER 


PROGRAMMER 


MER DATE PAGE of JOB NO 

IDENTIFICATION DESCRIPTION DO NOT KEY 
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DECK NO.. 


PROGRAMMER. 


NUMBER 



IDENTIFICATION DESCRIPTION DO NOT KEY PUNCH 
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DECK NO. PROGRAMMER DATE PAfiF nf JOB NO. 

NUMBER IDENTIFICATION DESCRIPTION DO NOT KEY PUNCH 
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DECK NO ^ PROGRAMMER DATE PAGE of JOB WO. 

NUMBER IDENTIFICATION DESCRIPTION DO NOT KEY PUNCH 
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DECK NO. PROGRAMMER - DATE PAGE of ^ — JOS NO. 

number I IDENTIFICATION • DESCRIPTION DO NOT KEY PUNCH 








FORTRAN FIXED .10 DIGIT DECIMAL DATA 


DECK NO.. 


PROGRAMMER. 


JOB NO.. 


NUMBER 


IDENTIFICATION DESCRIPTION DO NOT KEY PUNCH 
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PROGRAMMER. 
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'* *’ ^ y ^StATxvC. l«cc J^AF-r ORliCJ »0 

'* g y 

>XTi* s OF* FAMFoD at WHX-C-H 0 UT£X WIMG rs 

WlTI-^ H I* ll tJ M II M ff 


. N©. sPA*iwis.£ PoR. sn>es, op ou-reR. WJtns . 

WMVO<V-^Xg: vVxrMG C^PP Tfc<s g ff. ) , QT*^ £ g rriTtfgCit,). (Hm. ! 

Vtol^.rxcCS ^F*rt»vj3£ -SlrfiS WJK/ai ^ 

— *^Q Ropy, (00-0 rMTcG&O , WXTH &oa*^ fsveu In> p?g . I L-^Ss.) j 

X*^ 6 OF At WH1-C.M wi.Kia xa atta«.h£d, | 

xigg^ ^ Ho. OF 1 ^ IM OUTCR. WXM€ tabvh: (i-oc. IAJC-^ 1 X 39 ^ 

:crv| 5 j^ » TmmW. m II ^ 


WxKiG Pu^MPOH^ls^ TaSLE 




















FORTRAN FIXED 10 DIGIT DECIMAL DATA 



5 ^ 

















FORTRAN “ FIXED 10 DIGIT DECIMAL DATA' 


DECK NO.... ,, programmer DATE PAGE of JOB NO. 




NUMBER 

IDENTIFICATION 
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DECK NO.. 


NUMBER . 


FORTRAN FIXED 10 DIGIT DECIMAL DATA 

> 

PROGRAMMER DATE PAGE nf 

IDENTIFICATION DESCRIPTION DO NOT KEY PUNCH 
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PECK NO. PROGRAMMER DATE PAGE of JOB NO. 
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DENTIFICATIOt 

^ DESCRIPTION DO NOT KEY PUNCH 
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AO4NZXX»5»14OO*6UOOO*402511 *RCST^>786P FANPOD 

*notapfs*pss 

LIBCOPY.A04RCS*LIB#OBJECT. 

C0PY*LlB/RXtL60# 

RFL<135000f 580000) 

LGO. 

t 


1 

4.0 

24.0 

6.125 

10 




1200 

0.0 

0.0 

0.0 

1205 

18.0 


4.0 

1210 

0.1315 

14.30 

21.4060 

1215 

0.0 

0.3355 

16.9 

1220 

18.2 

24.388 

1.0 

1270 

20.0 

21.0 

4.0 

1275 



11.0 

1280 

5.0 

0.0 


1660 

1.0 

2.0 

3.0 

1665 

9.0 

Il.O 

13.0 

1670 

19.0 



1870 

0.2 

0.4 

0.6 

2000 

20.0 

0.0 

0.005 

2005 

0.025 

0.05 

0.1 

2010 

0.25 

0.30 

0.35 

2015 

0.5 

0*55 

0.6 

2020 

1.0 



2025 

2.0 

0.0 

1.0 

2050 

0.0 

0.00464 

0.00563 

2055 

0.01313 

0.01824 

0.02194 

2060 

0.02842 

0.02945 

0*02996 

2065 

0.02793 

0.02602 

0.020S7 

2070 

0.0 

0.00464 

0.00563 

2075 

0.01313 

0.01824 

0.02194 

2080 

0.02842 

0.02945 

0*02996 

2085 

0.02793 

0.02602 

0.02087 

4005 

33.33 

0.0 

0.0 

4010 

0.0 



4015 

0.0 

0.0 

0.0 

4565 

23.0 

0.0 

0.2 

4570 

1.0 

2.0 

3.0 

4575 

8.0 

10.0 

12.0 

4580 

16.0 

20.0 

22.0 

4585 

28.0 

30.0 

32.0 


0.6 

0*0 

5«0 

0.2335 

0.0 

25.35 


5.0 

15.0 

o.a 

0.0075 

0.15 

0.4 

0.7 


0.00718 

0.02474 

0.02992 

0.01437 

0.00718 

0.02474 

0.02992 

0.01437 

1.0 


0.3 

4.0 

14.0 

24.0 
33.33 


3.0 


15.6 

0.4375 

29.855 


7.0 

17.0 


0.0125 

0.20 

0.45 

0.8 


0.00981 
0.02687 
0.02925 
0.00013 
0.00981 
0.02687 
0.02925 
0.00013 
1 .0 


0.5 

6.0 

16.0 

26.0 


CASlOOlO 

CAS10020 

CAS10030 

CAS10040 

CAS10050 

CAS10060 

CAS10070 

CAS10080 

CAS10090 

CASlOlOO 

CASlOllO 

CAS10120 

CAS10130 

CAS10140 

CAS10150 

CAS10160 

CAS10170 

CAS10180 

CAS10190 

CAS10200 

CAS10210 

CAS10220 

CAS10230 

CAS10240 

CAS10250 

CAS10260 

CAS10270 

CAS10280 

CAS10290 

CAS10300 

CAS10310 

CAS10320 

CAS10330 

CAS10340 

CAS10350 

CAS10360 

CAS10370 

CAS10380 

CAS10390 

CAS10400 

CAS10410 

CAS10420 

CAS10430 



4050 

2.0 

0.0 

180,0 



CAS10440 

4090 

40.0 

40.0 

40.0 

> 

o 

• 

c 


CAS10450 

4020 

2.0 

0.0 

33.33 



CAS10A60 

4705 

150,0 

6.0 

3.0 

50.0 

25.0 

CAS10470 

4710 

0,0 

0,00197 

0,00789 

0,01771 

0,03142 

CASIO 48 O 

4715 

0.04894 

0,07022 

0,09517 

0,12369 

0,15567 

CA510«90 

4720 

0.19098 

0.22949 

0.27103 

0.31545 

0,36258 

CASIO 5 OO 

4725 

0.41221 

0.46417 

0.51825 

0,57422 

0,63187 

CAS10510 

4730 

0.69098 

0.75131 

0.81262 

0,87466 

0,93721 

CASIO 52 O 

4735 

0.0 

0.00731 

0.01645 

0.02924 

0.04568 

CASIO 53 O 

4740 

0.06577 

0.08951 

0.11689 

0.14792 

0.18258 

CASIO 54 O 

4745 

0.22088 

0.26281 

0.30837 

0.35755 

0.41034 

CAS10550 

4750 

0.46675 

0.52676 

0.59036 

0.65756 

0 .72834 

CAS10560 

4755 

0.80 269 

0.68061 

0.96209 

1.04712 

1.13569 

CASIO 57 O 

4760 

1.22779 

1.32341 

1.42254 

1.52517 

1 .63128 

CAS10586 

4765 

1,74087 

1.85393 

1,97044 

2.09039 

2*21376 

CAS10590 

4770 

2.34055 

2.47073 

2.60430 

2.74123 

2.88152 

CAS10600 

4775 

3,02516 

3,17211 

3.32237 

3.47592 

3.63275 

CAS10610 

4780 

3,79283 

3,95615 

4.12269 

4.29244 

4.46537 

CAS10620 

4785 

4.64146 

4,82070 

5.00307 

5.18854 

5.37710 

CAS10630 

4790 

5.56873 

5.76339 

5.96109 

6.16178 

6.36545 

CAS10640 

4795 

6,57208 

6.78164 

6.99412 

7,2o948 

7,42771 

CAsl065o 

4800 

7,64878 

7.87266 

8.09934 

8.32878 

8.56097 

CAS10660 

480 5 

8.79587 

9.03346 

9.27371 

9.51661 

9.76212 

CAS10670 

4810 

10.01020 

10.26085 

10.51403 

10.76971 

11,02786 

CAS10680 

4815 

11.28846 

11.55147 

11.81687 

12.08464 

12.35473 

CAS10690 

4820 

12.62711 

12.90177 

13,17867 

13.45779 

13.73908 

CAS10700 

4825 

14.02252 

14.30808 

14,59573 

14.88543 

15.17715 

CAS10710 

4830 

15.47085 

15.76650 

16.06410 

16.36360 

16,66496 

CAS10720 

4835 

16.96812 

17,27310 

17,57985 

17.88829 

18.19846 

CAS10730 

4840 

18.51027 

18,82366 

19,13870 

19.45529 

19.77341 

CAS10740 

4845 

20.09299 

20,41403 

20.73651 

21.06033 

21*38553 

CASi0750 

4850 

21.71204 

22.03981 

22.36680 

22.69902 

23.03041 

CAS10760 

4855 

23.36290 

23.69650 

24.03117 

24.36684 

24.70351 

CAS10770 

4860 

25.04112 

25.37961 

25,71901 

26.05920 

26.40024 

CASIO 78 O 

4865 

26.74199 

27.08450 

27.42769 

27.77150 

28,11597 

CAS10790 

4870 

28.46098 

28.80653 

29,15256 

29,49907 

29.84601 

CAS10800 

4875 

30.19328 

30,54095 

30.88892 

31.23711 

31.58557 

CAS10810 

4880 

31*93422 

32.263 

32.63X93 

32.98091 

33,33 

CAS10820 

4905 

3.0 

6.0 

9.0 

12.0 

15.0 

CAS10830 

4910 

18.0 

21.0 

24.0 

27.0 

30,0 

CAS10840 

4915 

33.0 

36.0 

39.0 

42.0 

45.0 

CAS10850 

4920 

48,0 

51.0 

54,0 

57.0 

60.0 

CAS10860 



4925 63*0 

66.0 

69.0 

4930 78«0 

81.0 

84.0 

4935 93*0 

96.0 

99.0 

4940 108.0 

111.0 

114.0 

4945 123.0 

126.0 

129.0 

4950 138.0 

141.0 

144.0 

4600 0.0 

0.00216 

0.00298 

4605 0.01205 

0.01613 

0.01971 

4610 0.03465 

0*03741 

0.03933 

4615 0.04167 

0. 04130 

0.04024 

4620 0.03128 

0.02526 

0.02083 

4000 1. 


1. 

5000 



8 4. 



4006 4. 



4000 2. 


2. 

5000 




72.0 

75.0 

CAS10870 

87.0 

90.0 

CAS10880 

102.0 

105*0 

CAS10890 

117.0 

120.U 

CAS10900 

132.0 

135.0 

CAS10910 

147.0 

149.0 

CAS10920 

0.00437 

0.00722 

CAS10930 

0.02593 

0.03090 

CAS10940 

0.U4Q63 

0.04143 

CAS10950 

0.03842 

0*03562 

CAS10960 


CAS109TU 

CAS10980 

CAS10990 

CAsllOOO 

CASllOlO 

CAS11020 

CAS11030 

CASllQAO 



A04NZXX*5*5UOO»600yvj,482&ll »RCi»T&786P FANPOD 
*NOTAPES.PSS 

LlBCOPY»AOARCSfUlB»OBjECT« 

C0PY*LI8/RX*LG0* 

RFL( 1350O0f58Q00U) 

LGO« 


1 

5.9744 

55.92 

9.918332 

5 

26.398 

0.0 

1.0 

10 

1*0 

~1.0 

0.0 

15 

1.0 

1.0 

1*0 

7o5 

20.0 

0*0 

0.0003 

710 

0.0035 

0.005 

0.0075 

715 

0.05 

0*1 

0.2 

720 

0.5 

0*6 

0.7 

725 

1.0 



'730 

5 *0 

O 

• 

o 

0*3262 

735 

1.000 



750 

0.0 

0.000283 

0*000730 

755 

0.001857 

0,002324 

0.002881 

760 

0.00635 

0.0084 

0.00945 

765 

0.0077 

0,00605 

0.0041 

770 

0.0 

0.000257 

0.000447 

775 

0.00121 

0.00168 

0.00242 

780 

0.00881 

0*01252 

0,01583 

785 

0.01737 

0.01455 

0*01138 

790 

0.0 

O.OUOU939 

0.000225 

795 

0.00072 

0,000978 

0,001481 

800 

0,00872 

0.01399 

0,01729 

805 

0,02081 

0,01901 

0.01537 

810 

0.0 

0.000185 

0.000485 

815 

0,001582 

0.00220 

0.00326 

820 

0.01058 

0.01646 

0.01951 

825 

0.02334 

0.02144 

0,01821 

830 

0.0 

0,000650 

0.001194 

835 

0.00308 

0.00400 

0.00545 

840 

0.01314 

0.01634 

0.01871 

845 

0.01869 

0.01575 

0.01160 

1270 

20.0 

41.0 

12.0 

1275 

12.0 

3,0 

10.0 

1280 

6.0 

0*0 

10.0 

1660 

2.0 

3.0 

5.0 

1665 

11.0 

13.0 

15.0 


U>6 

3*0 

0*0 

1.0 

o.ool 

0*0125 

0*3 

0*8 

0«5988 

0.001095 

0.004212 

0.0096 

0.00195 

0.U006705 

0.00401 

0.01851 

0.00633 

0.000358 

0.00268 

0.01959 

0.01116 

0.000802 

0.00516 

0.02232 

0.01304 

0.001730 

0.00794 

0.02034 

0.00656 

10*0 

10*0 

7.0 

17.0 


1.0 

3.0 

13.0 
0.002 
0.025 
0.4 
0.9 

0*7495 

0.001494 

0.005075 

0.00895 

0.0 

0.0009566 

0.00648 

0.01865 

0.0 

0.000552 

0.00511 

0.02150 

0.0 

0.001207 

0.00791 

0.02380 

0.0 

0.00246 

0.01073 

0.02011 

0.0 

37.0 

19.0 

9.0 

19.0 


CAS20010 

CAS20020 

CAs20030 

CAS20040 

CAS20050 

CAS200^>0 

CAs2oo70 

CAs2G080 

CAS20090 

CAS20100 

CAS20110 

CAS20120 

CAS20130 

CAS20140 

CAS20150 

CAS20160 

CAS20170 

CAS20180 

CAS20190 

CAS20200 

CAS20210 

CAS20220 

CA320230 

CAS20240 

CAS20250 

CAS20260 

CAS20270 

CAS20280 

CAS20290 

CAS20300 

CAS20310 

CAS20320 

CAS20330 

CAS20340 

CA320350 

CAS20360 

CAS20370 

CA320380 

CAS20390 

CAS20400 

CAS204I0 

CAS20420 

CAS20430 



1870 

0 

• 025 

0.05 

1875 

0 

• 4 

0.5 

1880 

0 

.9 

0.95 

2000 

20.0 

0.0 

2005 

0 

• 0035 

0*003 

2010 

0 

• 05 

0*1 

2015 

0 

• 5 

0*6 

2020 

1 

• 0 


2025 

5 

• 0 

o 

• 

o 

2030 

1 

• 0 


2050 

0 

• 0 

0*00325 

2055 

0 

•010875 

0.01315 

2060 

0 

•03940 

0,04755 

2065 

0 

.03767 

0.02837 

2070 

0 

• 0 

0.00273 

2075 

0 

•00876 

0.010466 

^t)80 

0 

•03341 

0*04531 

2085 

0 

•04121 

0,03175 

2090 

•0 

• 0 

0.U0265 

2095 

0 

•00852 

0*010178 

2100 

0 

•03308 

0. 04510 

2105 

0 

.03864 

0*03032 

2110 

0 

• 0 

0.00249 

2115 

0 

• 00801 

0.009568 

2120 

0 

.03X20 

0.04218 

2125 

0 

•04147 

0.03262 

2130 

0 

.0 

0.00245 

2135 

0 

• 00786 

0«0o9388 

2140 

0 

•03140 

0*04130 

2145 

0 

•04405 

0 • 03662 

400 5 

65.0 

“5.0 

4010 

0 

• 0 


4015 

0 

• 0 

0.0 

4020 

2 

• 0 

0*0 

4050 

2 

• 0 

0*0 

4090 

3 

• 059 

3.059 

4565 

24«0 

0*0 

4570 

9 

• 160 

12.21 

4575 

24.45 

27.50 

4580 

39.75 

42.76 

4585 

55,0 

58.05 

4600 

0 

«0 

0*675 

4605 

1 

• 99 

2*0 


0«1 

0.2 

0.3 

CA520440 

0.6 

0.7 

0.8 

CAS20450 

0.0003 

0.001 

0.002 

CAS20460 

CAS20470 

0.0075 

0.0125 

0.025 

CAS20480 

0.2 

0.3 

0.4 

CAS20490 

0.7 

0.8 

0.9 

CAS20500 

0.3262 

0.5988 

0.7495 

CAS20510 

CAS20520 

0.00515 

0.00715 

0.00925 

CAS20530 

CAS20540 

0.016675 

0.02196 

0.03025 

CAS20550 

0.050 

0.04909 

0.04486 

CAS20560 

0.01810 

0.00873 

0.0 

CAS20570 

0.00441 

0.005797 

0.00740 

CAS20580 

0.01316 

0.01750 

0.02406 

CAS20590 

0.05125 

0.05249 

0.04879 

CAS20600 

0.02050 

o.oiouo 

0.0 

CAS20610 

0.00429 

0.005638 

0.00719 

CAS20620 

0.01280 

0.01702 

0.02330 

CAS20630 

0.05101 

0.05168 

0.04679 

CAS20640 

0.01960 

0.00930 

0.0 

CAS20650 

0.00403 

0.00530 

0.00676 

CAS2U660 

0.01203 

0.01600 

0.02230 

CA320670 

0.04770 

0.04900 

0*04698 

CAS20680 

0.02166 

0.01020 

0.0 

CAS20690 

0.00395 

0.00520 

0.00664 

CAS20700 

0.01161 

0.01570 

0*02265 

CAS20710 

0.04656 

0.04867 

0.04806 

CA320720 

0.02631 

0.01380 

0*0 

CAS20730 

1*0 

l«U 

0*0 

CAS20740 

0.0 

65.0 

180.0 
3.059 
0.764 

3.059 

3.059 

6.105 

CAS20750 

CAS20760 

CAS20770 

CA320780 

CAS20790 

CAS20800 

15.29 

18.34 

21.40 

CA520810 

30.59 

33.6 

36.69 

CA320820 

45.85 

48.90 

51.95 

CA320830 

61.1 

64.15 

65.0 

CA320840 

1.225 

1.69 

1.9 

CA320850 

2*0 

2.0 

2*0 

CAS20860 



4610 2.0 

2*0 

2*0 

4616 1*98 

1*94 

1*85 

4620 1«19 

0.79 

0*5 

4636 0*0 

0*34 

0*85 

4640 1*626 

1.656 

1.555 

4646 1.666 

1.665 

1 •545 

4660 1*346 

1*216 

1*07 

4666 0*646 

0.355 

0*175 

4670 0*0 

0*075 

0*38 

4676 0*16 

-0*155 

-0*44 

4680-1*25 

-1*60 

-1.72 

4686-1*876 

-1*78 

-1.63 

4690-0*78 

-0*44 

-0*1 

4705 121*0 

6*0 

3*0 

4710 0*0 

0*006163 

0*02447 

4715 0*146445 

0*206105 

0*273005 

4720 0*5 

0*578215 

0*65451 

4725 0*853555 

0*90451 

0*945505 

4905 2*0 

5*0 

8*0 

4910 16*0 

19*0 

22*0 

4915 31*0 

34*0 

37.0 

4920 46*0 

49*0 

52*0 

4925 61*0 

64*0 

67*0 

4930 76*0 

79*0 

82*0 

4935 91.0 

94*0 

97*0 

4940 106*0 

109*0 

112*0 

20 6*0 

0*0 

1*25 

25 5*5 

26*398 


50 33*0 

0*0 

2Q*0 

55 45*0 

50*0 

57*5 

60 110*0 

122*5 

130*0 

65 147*6 

160*0 

18 o *0 

70 220*0 

225.0 

230*0 

75 270*0 

290*0 

302*5 

80 320*0 

327*5 

340*0 

87 8*818 

12*960 

3*3751 

90 1*0 

1.0 

1*0 

95 1*0 

1*0 

1*0 

100 1*0 

1*0 

1.0 

105 1*0 

1*0 

1*0 

110 1*0 

1*0 

1*0 

115 1*0 

1*0 

1*0 

120 1*0 

1*0 

1*0 


2.0 

1 .99 

CAS20870 

1*68 

1*44 

CAS20880 

0*0 


CAS20890 

1*28 

1*45 

CAS20900 

1*555 

1*555 

CAS209X0 

1*6 

1*43 

CA620920 

0*9 

0.72 

CAS20930 

0*12 


CAS20940 

0*65 

0*44 

CAS20950 

0.72 

-0*99 

CAS20960 

1*85 

-1*90 

CAS20970 

1*4 

-1*125 

CA620980 

0*0 


CAS20990 

40*0 

20*0 

CAS21000 

0*054495 

0*09549 

CAS21010 

0*34549 

0.421785 

CAS21020 

0*726995 

0*793895 

CAS21030 

0*97553 

0*993845 

CA62104U 

11*0 

13*0 

CAS21050 

25*0 

28*0 

CAS21060 

40*0 

43*0 

CAS21o70 

55*0 

58*0 

CAs21o8o 

70*0 

73*0 

CAS21090 

85*0 

B8*0 

CAS21100 

100*0 

103*0 

CAS21110 

115.0 

118*0 

CAS21120 

2*5 

4*0 

CAS21130 

CAS21140 

32*5 

40*0 

CAS21150 

70*0 

90*0 

CAS21160 

135*0 

140*0 

CAS21170 

200*0 

212*5 

CAS211B0 

237.5 

250*0 

CAS21190 

310*0 

315*0 

CAS21200 

360*0 


CAS21210 

CAS21220 

1*0 

1*0 

CAS21230 

1*0 

1*0 

CAS21240 

1*0 

1*0 

CAS21250 

1*0 

1.0 

CAS21260 

1.0 

1*0 

CAS21270 

1*0 

1*0 

CAS21280 

1*0 

1 *0093 

CAS21290 



12b 

1.0269 

1*0443 

1*0600 

1.0443 

1*0.269 

CAS21300 

130 

1*0093 

1*0 

1*0093 

1.0269 

1 *0443 

CAS2131U 

135 

1*06 

1*0443 

1*0269 

1*0093 

1*0 

CAS21320 

140 

1.0093 

1.0269 

1*0443 

1*06 

1*0443 

CAS21330 

145 

1*0269 

1.0093 

1*0 

1*0093 

1 *0269 

CAS21340 

150 

1*0443 

1*06 

1*0443 

1.0269 

1 *0093 

CAS21350 

155 

1*0 

1*0 

1*0349 

1.1009 

1*1659 

CAS21360 

160 

1.225 

1*1659 

1*1009 

1.0349 

1 *0 

CAS21370 

165 

1*0349 

1*1009 

1*1659 

1*225 

1*1659 

CAS21380 

170 

1*1009 

1*0349 

1*0 

1*0349 

1 *1009 

CAS21390 

175 

1.1659 

1*225 

1*1659 

l*i009 

1*0349 

CA52X400 

180 

1*0 

1*0349 

l*i009 

1.1659 

1.225 

CAS21410 

185 

1*1659 

1*1009 

1.0349 

i.O 

1 *0 

CAS21420 

190 

1*0582 

1*1682 

1*2764 

1*3749 

1*2764 

CAS21430 

195 

1*1682 

1*0582 

1*0 

1*0582 

1*1682 

CAS21440 

200 

1*2764 

1*3749 

1.2764 

1*1682 

1 *0582 

CAS21450 

-20 5 

1*0 

I*U582 

1*1682 

1*2764 

1*3749 

CAS21460 

210 

1*2764 

1*1682 

1*0582 

1*0 

1 *0582 

CAS21470 

215- 

1*1682 

1.2764 

1*3749 

1*2764 

1*1682 

CAS21480 

220 

1.0582 

1*0 

1*0 

1.0642 

1.1857 

CAS21490 

225 

1*3054 

1*4142 

1*3054 

1*1857 

1 *0642 

CAS21500 

230 

1*0 

1*0642 

1*1857 

1.3054 

1*4142 

CAS21510 

235 

1*3054 

1*1857 

1*0642 

1*0 

1 *0642 

CAS21520 

240 

1*1857 

1*3054 

1*4142 

1*3054 

1.1857 

CA82I530 

245 

1*0642 

1*0 

1*0642 

1.1857 

1*3054 

CAS21540 

250 

1*4142 

1*3054 

1*1857 

1 *0642 

1*0 

CA521550 

255 

1*0 

1*0642 

1*1857 

1*3054 

1*4142 

CAS21560 

260 

1*3054 

1*1857 

1*0642 

1*0 

1 *0642 

CAS21570 

265 

1*1857 

1*3034 

1*4142 

1*3054 

1 *1857 

CAS21580 

270 

1*0642 

1*0 

1*0642 

1.1857 

1*3054 

CAS21590 

275 

1*4142 

1*3054 

1.1857 

1*0642 

1*0 

CA321600 

280 

1*0642 

1*1857 

1.3054 

1*4142 

1*3054 

CAS21610 

285 

1.1857 

1*0642 

1*0 



CAS21620 

565 

34*0 

0*0 

0*003 

0.0075 

0*014 

CAS21630 

570 

0*023 

0*036 

0*06 

0*1 

0*16 

CAS21640 

575 

0*22 

0*28 

0*34 

0.4 

0*6 

CAS21650 

580 

0*9 

1*2 

1*6 

2*0 

3*0 

CAS21660 

585 

4*4 

6*0 

13*36 

14*5 

16*5 

CAS21670 

590 

18*5 

20*0 

22*0 

24*0 

25.0 

CAS21680 

595 

26*0 

26*2 

26*3 

26.37 

26*398 

CA521690 

600 

0*0 

0*04 

0*1 

0*164 

0.23 

CAS21700 

605 

0*315 

0*435 

0*575 

0*728 

0*85 

CAS21710 

610 

0*96 

1 • 0^ 

1*139 

1*37 

1*68 

CAS21720 



61b 

1.949 

2.225 

2.44 

2.785 

3.02 

CAS21730 

620 

3.065 

3.065 

3.065 , 

3,065 

3.065 

CAi,2l740 

625 

3.065 

3.065 

3.065 

3.065 

3.065 

CAS21750 

630 

3.065 

3.065 

3.065 

3,065 


CAS21760 

635 

0.0 

0.03 

0.075 

0.12 

0.17 

CAS21770 

640 

0.225 

0.31 

0.41 

0.52 

0*615 

CA621780 

645 

0.695 

0.76 

0.83 

1.02 

1 .245 

CAS21790 

650 

1.42 

1.575 

1.66 

1.69 

1 .69 

CA621800 

655 

1.69 

1.69 

1.645 

1.495 

1*275 

CA521810 

660 

1.085 

0.805 

0.505 

0,355 

0.186 

CAS21820 

665 

0,155 

0.105 

0,060 

0,0 


CAS21830 

1295 

1.0 

3.0 

5.0 

7.0 

9.0 

CAS21840 

1300 

11.0 

13.0 

15.0 

17.0 

19.0 

CAS2X850 

1460 

0.0 

0.0911 

0,362 

0.804 

1 .403 

CAS21860 

1465 

2.142 

3.0 

3.945 

4,96 

6*0 

CAS21870 

1470 

7.0 

8*0 

9.0 

10.0 

ll.O 

CAS21880 

1475 

12.0 

13.0 

14.0 

15*0 

16.0 

CAS21890 

1480 

17.0 

18.0 

18.877 

19.745 

20.595 

CAS21900 

1485- 

21.42 

22.2 

22.94 

23.625 

24.24 

CAS21910 

1490 

24.8 

25.28 

25.66 

25.99 

26.21 

CA521920 

1495 

26.34 

26.398 




CAS21930 

1610 

0.0 

26.566 

45.0 

90.0 

135.0 

CAS21940 

1615 

153.434 

180*0 

206.566 

225.0 

270.0 

CAS21950 

1620 

315.0 

333.434 




CAS21960 

1720 

2.0 

3.0 

4.0 

5.0 

6.0 

CAS21970 

1726 

7.0 

6*0 

10.0 

12.0 

14.0 

CAS2I980 

1730 

16.0 

18.0 

20.0 

22.0 

24.U 

CAS21990 

1735 

26.0 

28.0 

30.0 

32.0 


CAS22000 

1970 

0.0523 

0.0489 

0.0456 

0.0366 

-0.00785 

CAS22010 

1985 

0.3949 

0.175 

-0.14 

-0.4 

-0.775 

CAS22020 

1210 

0.11 

17.64 

30.09 

0.1874 

18.82 

CAS22030 

1215 

0.0 

0.2648 

19.98 

0.0 

0*3422 

CAS22040 

1220 

21.15 

31.76 

1.0 

31.018 

36*418 

CAS22050 

1200 

0. 

0* 

3.7051 



CAS22060 

1205 

24* 


2. 

5. 


CAS22070 

5 




0*04 


CAS22080 

4006-4.96 





CAS22090 

4000 

1. 


1. 



CAS22100 

5000 






CA522H0 

8 

3.06 





CAs22l2g 

4006-1.94 





CAS22130 

4000 

2* 


2. 



CAS22140 

5000 






CAS22150 



124U 0,11 

17*64 

30*09 

1245 U«U 

0*1794 

18*695 

1250 19*22 

30.845 

0*2468 

1255 0.2835 

20*26 

0*0 

1260 0*0 

0*3529 

21.3 

1210 0*574 

24*62 

33*395 

1215 0*0 

0*6875 

26*32 

1220 27,19 

34,6 

1*0 

87 8*756 

12.96 

3*7051 

1200 0* 

0* 

3*7051 

1205 16* 

14* 

2* 

5 

0*18 


4006-4*82 



4000 2* 

1* 

1* 

5000 



5 

3*19 


"4006-1*81 



4000 2* 

2* 

2* 

5000 




0*1447 

18.172 

CAS22160 

0*0 

0*2141 

CAS22170 

19*74 

31*09 

CAS22180 

0*3182 

20.78 

CAS22190 

31.825 


CAS22200 

0.6305 

25*475 

CAS22210 

0*0 

0*7449 

CAS2222U 

31*018 

36*418 

CAS22230 

CAS22240 

4* 

10 * 

CAS22250 

5* 

8* 

CAS22260 

0*18 


CAS22270 

CAS22280 

CAS22290 

CAS22300 

3*19 


CAS22310 

CAS22320 

CAS22330 



CAS22340 

CAS22350 



DESCRIPTION OF OUTPUT 


The program output is printed in the following sequence; 

Input data 
Boundary conditions 

Longitudinal and lateral surface velocities and pressures at the 
control points on the fuselage 
Total and section loads on the fuselage 
Fanpod results in an analogous manner to the fuselage 
Linear net pressures on the wing at specified locations 
Nonlinear surface velocities and pressures on the wing at the 
control points 

Total and section loads on the wing 
Pylon resiilts in an analogous manner to the wing 
Total configuration forces and pitching moment. 

Description of output nomenclature list in the order that it is 
printed: 

Matrix B - Total configuration boundary conditions 

(Xq,Yq,Zq) -F uselage or fanpod control point locations 

VT/vFS - Lateral surface velocity on the fuselage or fanpod 

WM/vFS - Longitudinal surface velocity on the fuselage or fanpod 

CP - Surface pressure coefficient on the fuselage or fanpod 

CL - Lift coefficient 

CD - Drag coefficient 

CMXY - Pitching moment due to lift ' ng forces 

CMfZ - Pitching moment due to drag forces 

CM - Pitching moment due to all .'orces 

CLW/WA - Section lift coefficient on the fuselage or fanpod 

CDW/WA - Section drag coefficient on the fuselage or fanpod 

x/C - Percent chord station 

ETA - Percent wing or pylon semi-span station 

u/V UP - Longitudinal velocity on upi)er surface of wing or pylon 


1 . 

2 . 

3 . 

h. 

5 . 

6 . 

7 . 

8 . 

9 . 

10 , 
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u/v LOW 
V/V UP 
V/V LOW 
CP LOW 
CP UP 
CP NETL 
CP L-U 
CNC/CA 
CDC/CA 
CMC/CA 
X/C CP 
WCL 
PCL 
WCD 
PCD 


- Longitudinal velocity on lower stirface of wing or pylon 

- I,ateral velocity on itpper surface of wing or pylon 

- Laterad, velocity on lower surface of wing or pylon 

- Lower surface pressure coefficient on wing or pylon 

- Upper surface pressure coefficient on wing or pylon 

- Linear net pressure on wing or pylon 

- Nonlinear net pressure on wing or pylon 

- Section lift on wing or pylon 

- Section zero suction drag on wing or pylon 

- Section pitching moment on wing or pylon 

- Section center of pressure on the wing or pylon 

- Wing lift coefficient 

- Pylon lift coefficient 

- Wing zero suction drag coefficient 

- Pylon zero suction drag coefficient 


90 



SAMPLE OOTPOT 

(case i) 
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1 .225000 

1 • 1 65900 

165 
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1.000000 

?50 

1 ♦414200 

1 a A 

?55 

1 • 000000 

1, 064200 

?60 

} , 305400 

i,.re5Too 

?t>5 

1 ,lB5foo 

1,305400 

?70 , 

1.054200 

1. 0000 00 

?T5 

1 .4 l4,?no 

1,305400 

?80 

1,064200 

1,185700 

?a5 

1, 1857 00 

1,064200 

F65 
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1 ,0 0 0 0 0 0 
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0 , oooooo 

.091100 

1465 

2.142000 

3.000000 

14 70 

7,000000 

8. OOOOOO 

1475 

13.000000 

13.000000 

U80 

1 7.000000 

18.000000 

1485 

21.420000 

22.?000no 

1490 

24.800000 

25,280000 

U95 

26.340000 

26, 398000 

1610 

0, OOOOOO 

26,866000 

1615 

153,434000 

180.000000 

1620 

315.000000 

333,434000 

1660 

?. OOOOOO 

3. OOOOOO 

1665 

11.000000 

13.000000 


.002881 

.004212 

,005078 

*009450 

.009600 

,008950 

*004100 

.001950 

O.OOOOftO 

.000447 

•000671 

• 000957 

.002420 

.00401 n 

• 0 0 H ^ P 0 

• 0 1 583ft 

.018510 

, 018^50 

.01 138ft 

.006330 

f> . 0 0 0 0 ft 0 

•000228 

.000358 

.000^5? 

•001481 

.002680 

.0 05 1 1 ft 

•01729ft 

.019S90 

.071500 

• ftl 537ft 

.011160 

O.OOOOOO 

,O0048e; 

.000802 

.0012ft7 

• 0 

,005160 

.00791 ft 

.019510 

.022320 

.023800 

1«?1 n 

^ n 1 ^ n 4. n 

r> . n n n n n n 

•ool 194 

.001730 

.0024^^0 

« (\ ob4-So 

,007940 

. 0 » 0 7 7 0 

.01671 ft 

,020340 

. 1 1 0 

• 1 1 60 0 

,006560 

0 , 0 0 0 0 0 0 

3.705100 

O.OOOOOO 

. 0,000000 

2*000000 

5.000000 

n .0000 0 0 

30.0‘‘0000 

.187400 

18,820000 

19.O8000O 

0,000000 

. 342200 

1 *00D00o 

31 ,oi«ooo 

36,41800ft 

12.O0000O 

10 . oooooo 

37,000000 

10*000000 

10,000000 

1 9,000000 

lO.OOOOOft 

o.oooooo 

0.000000 

5*000000 

7.000000 

.9,000000 

15*000000 

17.000000 

19,000000 

,36200ft 

.804000 

l.4nioon 

3.945000 

4. 9600 00 

6.000000 

9.000O0O 

10,000000 

11.000000 

14,000000 

15.000000 

16.000000 

18.877000 

19,745000 

20*^95000 

22.P400OO 

23.625000 

24,240000 

25 .66000 0 

25.990000 

?6.2l00ft0 

O.OOOOOo 

0,000000 

0,000000 

45.000000 

on.ooonoo 

1 35,nooonn 

206,s6600n 

225.000000 

270,000000 

o.nooooo 

o.oooooo 

o.oooooo 

5,000000 

7. oooooo 

9,000000 

I5.O0000O 

1 7,00fto00 

19.000000 



1720 

2 .00000 0 

3.000000 

4 , n 0 0 0 0 0 

5»0 OOOOO 

6,000000 

1725 

7.000000 

8o oOOOOO 

1 0 . ooooon 

12.000000 

14,000000 

1 730 

1^.000000 

1 8. ooooon 

20.00UOOO 

22, OOOoOO 

24,000000 

I 735 

2o, 000000 

28.000000 

30.0 >10000 

32.000O00 

0 , 0 0 0 0 0 0 

1 «70 

.025000 

. oSOOOn 

. 1 MOOOO 

.200000 

, • 0 0 0 0 0 

1B75 

*400000 

.500000 

. 6 0 0 0 0 0 

,700000 

.800000 

1R80 

• 900000 

•obOOOo 

0 . 0 0 0 0 0 0 

0,000000 

0 , 0 0 0 0 0 n 

1070 

.052360 

.n490?6 

. 0‘*939-^ 

.037769 

-.008138 

1085 

.394900 

* 1 7500n 

-•140000 

-.400000 

/750ft0 

2000 

20. 000000 

0.000000 

.000300 

. 0 0 1 0 0 0 

.002000 

2005 

.003500 

.005900 

•00^500 

,012800 

.025000 

2010 

.050000 

• 1 OOOOO 

.200000 

,300000 

.400000 

2015 

•500000 

.600000 

.700000 

.800000 

.9000OO 

Ho20 

1. 000000 

0.000000 

o.oouooo 

O.OOOflOO 

0,000000 

2o25 

5.ooo‘*6oo 

0 , 0 0 0 0 0 0 

.326200 

.598800 

,749500 

20 30 

l.OOOOOO 

n.nooooo 

0*000000 

0,000000 

0.000000 

2050 

0.000000 ■ 

.003250 

• 0 0 5 1 5 0 

.007150 

.009250 

20 55 

.010875 

.013150 

• Ol667e; 

• 02 1 960 

.030250 

2060 

.039400 

• 04 75srt 

•05000O 

,049090 

,044860 

2065 

.037670 

.028370 

.018100 

,008730 

O.OOOUOO 

2070 

0. 000000 

.002730 

.004410 

.005797 

,00/400 

2075 

.008760 

. 0 10466 

•n 13160 

,017500 

. 0 24 0(5, 0 

2080 

.033410 

• 0^531 0 

. 0*^1250 

,022490 

.048 ^90 

2o85 

.041210 

.031750 

eO2O50n 

.010000 

0.000 0 on 

2o«)0 

0.000000 

.002650 

.004290 

,005638 

. 0 0 7 1 Q n 

2095 

*008520 

•010178 

. 0 1 2H0o 

.017020 

.023300 

2100 

.033080 

•045100 

. o5 1 0 1 0 

.051680 

• 760 

2105 

.038640 

.030320 

•01960o 

.009300 

O.Oi/OUOO 

2110 

0 . oooooo 

•00249n 

*004030 

.005300 

,.006/60 

21 15 

.008010 

.00956a 

•0l203o 

•016O00 

...02230 0 

2120 

.031200 

.()42l8o 

• 04 77()o 

•049000 

,0.4.69 a 0 

2125 

.041470 

.032620 

•o2l66o 

•010200 

0 . ooooon 

2130 

0.000000 

.002450 

• 00*^950 

.005200 

,006640 

21 35 

,007860 

.009388 

.f»U81o 

.015700 

.022650 

2140 

.031400 

.041300 

. 046560 

.048670 

,048060 

2145 

,044050 

•036620 

.026310 

.013800 

0,000000 

3380 

lOOn 0 00. OOOOOO 

lOOOOOQ. OOOOOO 

lOOOOOO.OOOOOo 

1000000.000000 

1 0 0 0 0 0 0 . 0 0 0 0 0 0 

3385 

1 ooooon. OOOOOO 

loooooo.oooono 

loooooo. oooooo 

0 . oooooo 

o.ononno 

4000 

1.000000 

0.0000(10 

1 .ooooon 

0.000000 

0,0 OOOOO 

4005 

65.000000 

«4,q60000 

l.OOOOOO 

1 .000(100 

0.000000 

4020 

2.000000 

0.000000 

65.000000 

0 • 0 0 0 0 0 0 

o.onoono 

4050 

2.000000 

0 . oooooo 

180,000000 

0,000000 

0,000000 

4o90 

3.059000 

3o059000 

3.o5900n 

» Ob9nn ft 

n^nnfinnn 



41565 

”2<* ,000000 

O.nooooo 

4570 

9.160000 

I2.?l00fin 

4f75 

24,450000 

27.5000OO 

4580 

39,750000 

42,76000n 

4585 

55.000000 

58,05000n 

4600 

0,000000 

,675000 

4605 

1 ,990000 

2.00000O 

4610 

2,000000 

2. OOOOOO 

4615 

1.980000 

1 ,940000 

4620 

1 *190000 

•790000 

4635 

0,000000 

•140000 

4640 

1 .525000 

1 ,555000 

4645 

1 ,555i)00 

1,555000 

4650 

1 ,3‘»5000 

1 .215000 

4655 

,545000 

•155000 

4670 

o.onoooo 

« 07500f> 

4675 

, 150000 

-, 1 55000 

4660 

-1 *250000 

-1,500000 

VO 4665 

-1 .8/5000 

-U78000O 

^4690 

-• 780000 

-.440000 

4705 

121 *000000 

6,000000 

4710 

0.000000 

•006155 

4715 

• 146445 

•206105 

4720 

.500000 

.5782115 

4725 

.853555 

•90451O 

4905 

2.000000 

5,000000 

4910 

16.000000 

19,000000 

4915 

31 .000000 

34,000000 

4920 

46.000000 

49,000000 

4925 

61 .000000 

64,000000 

4930 

76.000000 

79.000000 

4935 

91,000000 

94,ngonort 

4940 

106.000000 

l 09,000000 


#« 

COMpLe 1 

MATRIX 

1 

ft# 

completfd 

MA TPI X 

3 

ft# 

COmPlETfD 

MA TPIX 

U 

ftft 

COMPLETfO 

matrix 

13 


.764000 

3,059o00 

6,1 05o r, (• 

15.29000O 

18,340000 

2 1 , 4 0 0 (j n n 

10.R9U000 

31, 600000 

16,6900 Aft 

45.85000O 

48,900000 

51 ,950 0 0 ft 

6l,iu000n 

64,150000 

65, 00000 A 

1 .??500o 

1,690000 

1,9000aO 

?• OitDOOo 

2.000000 

2 . 0 0 0 1) 0 0 

2*000000 

2,000000 

1 • 990000 

1 .P50000 

1 ,680000 

1 ,44000ft 

.FOOOOn 

0 .000000 

O.OOOOAA 

.850000 

1 .280000 

1 ,450000 

1 .FSbOOn 

1 ,555000 

1 ,555000 

1 .e;45000 

1,500000 

1 .430000 

1 .0 ?000o 

.900000 

, 72000O 

« 1 T500n 

,120000 

0,000000 

•38000O 

,650000 

.440000 

A'iOOOO 

-.720000 

-.990000 

-1.720000 

-1,850000 

-1.900000 

-1.630000 

-1 ,400000 

-1 , 125000 

-•1 OOOOO 

0,000000 

0,000000 

I.OOOOOO 

40,000000 

20,000000 

•024470 

,054495 

•0954O0 

•273005 

,345490 

,421 /85 

• 65451a 

,726995 

,793805 

*945505 

,9/5530 

,993845 

8.000000 

1 1 .000000 

ll.OOOOoft 

22.000000 

25.000000 

28,0000 on 

37.n00000 

40.000000 

43,000000 

52.00000a 

55.000000 

56,000000 

67.000000 

70.000000 

73,0001)00 

82.00000A 

85,000000 

8 8 . 0 0 0 0 0 0 

97,000000 

lAn.oooAno 

1 n 3 i 0 Q 0 0 0 0 

U2.000000 

115.000000 

1 1 P.OOOOOft 



» MiVTRIX- 

• 0 7 2 S 
*00??4 

• 0) 91,9 

• 86fil 0 
.08132 

-.00260 
-.00495 
.91876 
.09371 
-.00313 
-.1047? 
.88499 
.09570 
-.00381 
-.25339 
•77340 
.08652 
-.01203 
' -.28527 
^ .69340 
-9 .07979 
—.01 845 
-.29076 
-.13354 
-.12070 
-.10155 
“.08372 
—.061 70 
-.04058 
-.04161 
-.0471 1 
-.05178 
-.05196 
-.04300 
— . 03500 


A 

,81636 
.03798 
.00107 
.01669 
.66400 
,04 091 
.00641 
-.00659 
,91545 
.04625 
,00651 
-.10842 
.88qB7 
,05000 
-,01544 
-.26149 
,76 728.^. 
.05060 
-,04945 
-,28741 
.60669 
,05061 
~,0 7092 
-.29125 
-,04985 
-.04187 
-.02932 
-.01698 
-,01952 
-.02512 

-.01980 

-.01310 

-.00720 

-.00140 

.00509 

,01101 


. 79882 
.01181 
.00097 
-.0009! 
.04445 
.00795 
.00825 

— . 05405 
.89867 
.00348 

.00523 
-.21584 
. 05 99 2 
.00792 
- *03046 
-.36206 
.73730 
,01989 
-.07713 
-.32951 
.65508 
,02050 
-.10437 
-.30551 
-.02874 
-,02497 
-.01815 
-«01 0^56 

- 9 0 0620 

- o 00276 
,00139 
,00517 
.00848 
.01192 
.01615 
.02002 


•64546 
-.00626 
.00912 
.00275 
.62373 
-.00039 
. 0 1 7a 2 
-.043^6 
.58 334 
-.00009 
.0llc;2 
-.19266 
.47865 
-.00173 
-.03798 
-.34116 
.40955 
-.00060 
-.09707 
-,320?8 
,40698 
.OOOSO 
-.12941 
-.30224 
-.02120 
-.01713 
“c 00909 
-,00195 
.00665 
.01405 
.01571 
.01506 

.01447 

.01503 

.02102 

.02718 


.59f|91 
♦ 0 0 3 2 0 
-•00214 
•01211 
.56818 
•05553 

.01052 

— .014 86 
.51637 
•00487 
.00558 

-.12095 
.40348 
-.00310 
-.05749 
-.20638 
.32596 
-*00?91 
-.13111 
-.29603 
.31323 
-.001 72 

— » 1 7 o 09 
-.2«393 
-.00516 

— « 0 0 1 27 
.00573 
.01346 
.01047 
•02260 
.02650 
.03989 
.03207 
•03566 
.03058 
.04126 


.554/4 

-.001 

-. 0068 / 

.01732 

,53702 

,06rt4J 

,00?64 

.006/4 

,49011 

.01043 

-»0l 1 28 
-.07756 
.38659 
-.00134 
-.O80U4 
-.24738 
.30161 
-.00246 

-.16335 

-,?7Q60 

.27523 

".0014/ 

-.20003 

-.28050 

.0H5V 

.0171:1 

.02631 

.03587 

.04248 

.04001 

.05022 

.05i5l 

,05264 

,05326 

.05303 

.05288 


.50708 
-.00043 
-.00601 
• 0 1 466 
.49078 
•01144 

-,00393 

*0107/ 
,44603 
•01337 
-.03369 
-.06424 
. 353/3 
•00225 
-•12?94 
-.24708 
•27447 
-.000 1 3 
-.19032 
-.27989 
.24515 
-.00006 
-.21 967 
— 0 29220 
,02044 
.03356 
® 04222 
.05133 
,05954 
.06700 
.06715 
• 0 6505 
.06469 
.06328 
,06124 
.05946 


.42855 

.00101 

-.00725 

-.02210 

.41208 

-.03208 

-.01570 

-.26311 

.36640 

.00145 

-.07066 

-.67523 

.27957 

.00454 

-.17872 

-.76505 

.20510 

.002/0 

-.23459 

-.51628 

.17511 

.00193 

-.25507 

-.33281 

.03807 

,04474 

.05551 

,06639 

.06996 

.07169 

.07457 

.07728 

,07966 

,07923 

.07314 

.06773 


.25239 
. 00326 
-.00681 
-.06758 
.25445 
-. 05540 
-.02610 
-.50591 
.24889 

— • 00905 
-.10463 

-.70925 

.21654 

.00393 

-.22268 

- • 82820 
.17705 
,00343 

-,2595b 
-.67183 
.15721 
.00206 
-.26912 
-.36950 
.05921 
,07041 
« 10622 
.13124 

,13395 

.13127 
.11989 
. 10796 
.09743 
,08779 
,07862 
,07043 


. 12204 

. 00587 

-.00249 

-.2720n 

,13209 

-.03433 

-.0255? 

• 14354 
-.00981 
-.1 159a 
-,«267o 
.13/80 
.000/7 
-.24440 
-.83396 
,11881 
-.000 
-.2/419 
». /S46i 
.10689 
-.00210 
-,2798ft 
-,4626? 
,0633] 
,08489 
. 1 1 594 

.14365 
.14629 
. 14286 

.1288ft 

. 1 1 4()a 
. I 0 1 1 0 
,009/ft 
.07900 
.0711(1 



** SUBSO'MIC TMTERFERFMCe PRESS) 


program *« FUSFI.AGE OUTPUT «* 


NO. 

XQ 

YO 

7.Q 

VT/VFS 

YM/Vfs 

CP 

1 

.01416 

,01075 

.02101 

,02704 

-.28n92 

,99913 

2 

.18366 

,13806 

.27105 

,03243 

-.00943 

1,09191 

3 

, S66 l6 

,40163 

•80035 

.05369 

*37904 

,92103 

4 

l,12R7i 

,64054 

1 ,44892 

,07254 

,59975 

,67751 

5 

1,61998 

,73148 

1.85440 

.OTO30 

*69937 

,53550 

6 

2,51773 

,87940 

2.51172 

.06412 

•00181 

,36434 

7 

3.60346 

1 ,04814 

3.22736 

.05400 

•93R20 

.12384 

a 

4.H7035 

1.20960 

3.91875 

.04154 

I*10l20 

-.21450 

9 

6,31 0<»6 

1 .34877 

4.46039 

.02786 

1.27924 

-.59923 

10 

7,91476 

1,44525 

4,64878 

.01842 

1.20360 

-.43113 

n 

9.67319 

1.51603 

4.71361 

.01343 

1 .ISl 40 

-.31645 

}2 

11.57474 

1,56003 

4.66623 

.01178 

1.11490 

-.23786 

13 

13.60747 

1.57496 

4.55352 

.01228 

1.08692 

-.17859 


IS, 7SR64 

4.57743 

4.37770 

-.00270 

1*05711 

-.11625 

15 

18,01477 

1,57743 

4.16729 

-.05637 

1*05237 

-.10956 


20,361 71 

1.57743 

3.95139 

-,01435 

1*10227 

-.21106 

17 

22, 78475 

1.57743 

3,73350 

,00822 

1*121 97 

-.25291 

IS 

25.26870 

1.57743 

3.51643 

.02832 

1 .10r38 

-.21825 

19 

27.79799 

1,57743 

3.30254 

,03935 

1.07095 

-.14651 

20 

30, 35675 

1,57743 

3.09507 

,03066 

1*03254 

-. 06668 

?1 

32.92895 

1.57743 

2.88399 

-.01681 

1*01837 

-.03723 

22 

35,4984 7 

1.57743 

2.66640 

- , 02884 

1*01714 

-.03629 

23 

38.04910 

1,57396 

2.44962 

-.03120 

1*01625 

-.03364 

?4 

40.56510 

1.56742 

2.24717 

-.03169 

1.02328 

-.04789 

?5 

43,03046 

1.55952 

2.05933 

-.03356 

1.03707 

-.07611 

?6 

45,42981 

1.53614 

1.83545 

-.03380 

1.03026 

-,06223 

27 

47.74809 

1.49156 

1*62334 

-,03149 

1*02538 

-.05824 

28 

49,97077 

1,41846 

1.42309 

-,02921 

1*02528 

-, 05l 81 

29 

52.08393 

1.31667 

1.23727 

-,02839 

1.01965 

-.04034 

30 

54,07430 

1,19431 

1.06513 

-,03076 

1.00477 

-.01050 

31 

55,92942 

1,07682 

,94126 

-,03618 

1.00570 

-,01273 

32 

57.63766 

.96726 

• 84856 

-.04216 

1.02508 

-.05232 

33 

59.18829 

.82371 

.74342 

-,04689 

1.01881 

-.04003 

34 

60,57i6l 

.67392 

.64162 

-.06915 

.99638 

.00245 

35 

61,77894 

.56720 

• 56U5 

-.10820 

.991 78 

,00467 

35 

62.80271 

,49824 

.4996^ 

-.14088 

1.02243 

-•06484 

37 

63.63650 

,45203 

• 44985 

-.15397 

1.061 37 

-.14820 

38 

64.27609 

,34313 

•40619 

-.15465 

U00955 

-.04294 

39 

64, 71447 

.14199 

.37427 

-.30926 

1.00525 

-•11108 

40 

64,95188 

,02429 

.35678 

-.82505 

1,09899 

-.81970 



SUBSONIC IMTEpFEREnCE pPESS^ 


PPOORAm *« fuselage output *« 


NO» 

X(J 

TO 

ZO 

VT/VFS 

VM/VE5 

CP 

1 

,01416 

.02936 

.01574 

,09077 

-.18117 

1,04458 

2 

, 16386 

,37718 

.20307 

,10695 

.05465 

1,07612 

3 

.55616 

1 ,09727 

.60027 

.16732 

• 42-^68 

,05065 

4 

1 ,12ft 73 

1,74999 

1.09246 

.22238 

,63983 

.56004 

5 

1,61998 

1,99843 

1.40728 

,21001 

.73113 

,43756 

6 

2.51773 

2.40255 

1.92234 

,18628 

• 8 1 B 1 5 

.30390 

7 

3.60346 

2.86357 

2.48075 

.15533 

•93256 

.10722 

B 

4, 87035 

3.30468 

3.02172 

.11903 

1 • 084 38 

-.10682 

9 

6,31046 

3.68492 

3.43744 

.07769 

U24192 

-.52105 

10 

7.91476 

3.94849 

3^54787 

.05163 

1.18206 

•.30573 

11 

9.67319 

4,14187 

3.55609 • 

.04095 

1*13092 

• , 2 9.2 0 0 

12 

11.57474 

4,26207 

3.A7261 

,03706 

1.11573 

-.24082 

13 

13,60747 

4.30287 

3,33655 

,03366 

1.00276 

— , 17002 

14 

15,75864 

--4,30962 

3.15125 

,02221 

.99121 

.01703 

15 

18.01477 

4.30962 

2 • 94 084 

*o7?54 

.83222 

,31046 

16 

20,36171 

4.3Q962 

2.72494 

.11017 

1.01785 

-.04796 

' 17 

22.78475 

4.30962 

2.50705 

,06533 

1.00771 

-.18424 

iB 

25,26870 

4,30962 

2.28997 

.03735 

1.04900 

-,10045 

19 

27,79799 

4,30962 

2.07609 

.04238 

.98*;50 

.02689 

?o 

30.35675 

4.30962 

1.86875 

,05884 

.95005 

,09475 

21 

32, 92895 

4.30962 

1 .66?44 

.02432 

.98351 

,03222 

?2 

35,49847 

4,30962 

1.46715 

.01216 

1 .00745 

-.01509 

^ 23 

38.04P18 

4,30014 

1 .28923 

,01020 

1.02247 

-.04537 

?A 

40.56510 

4.2822B 

1.13605 

.01156 

1.02728 

-.05517 

25 

43,03046 

4,26070 

1.00680 

.01318 

1.04011 

— * 08 1 4 0 

Pb 

45.42981 

4,19682 

• 06?42 

,02158 

1 e 04l 05 

-.08362 

P7 

47, 74809 

4,07503 

.73442 

.03681 

1.04194 

-.08632 

28 

49.97077 

3,87529 

.62487 

.05448 

1 .03391 

-.07147 

29 

52,08.393 

3,59720 

.53364 

,07134 

1.02150 

-,04035 

30 

54,07430 

3,26292 

.45433 

,08444 

•99028 

-,00369 

31 

55,92942 

2,94194 

.41562 

.09305 

.99393 

.00345 

32 

57,63766 

2,64261 

.39974 

,09725 

1.01907 

-.04775 

33. 

59,18829 

2.25041 

- .36922 

,11845 

,98948 

-.00690 

34 

60,57161 

1.84118 

.33602 

,10496 

.94624 

.09441 

35 

61.77894 

1.54963 

.31317 

.04928 

.94542 

.10473 

36 

62,80271 

1,36121. 

.29872 

,00112 

1.00292 

-,00584. 

37 

63.63650 

1.23497 

.28718 

-,02331 

1.06731 

-.13794 

38 

64.27509 

.93744 

,27447 

.05049 

.85541 

.27213 

39 

64,7144/ 

,38794 

. 26495 

,02929 

.71965 

,50245 

40 

64.95188 

,06636 

« 25966 

-,73927 

.52262 

.18328 




PrOCjRAm FUSELAfiE OUTPUT ** 


vm/vfs 

-.107^8 
• U*;96 

•7?7R7 
.79^54 
• 854 ft 4 
•9306R 
1.05993 
1.1R447 
1 . 15 C 102 
1.13192 
I .100^4 
l.07?R3 

1.0?i?6 

.97«;93 
.99919 
1.02004 
1.02755 
1.00P91 
.99051 
.99e;?2 
1 .0U07 
1.0?#!,47 
1.03134 
I • 04 P 44 
1.05517 
l.06fl5R 
1.05034 
1.03704 
1.01437 
1.00370 
1.02308 
.97495 
.90963 
.91047 
1 .00359 
1.05593 
.79194 
.521 47 
.25507 


CP 

1.04202 
1.03009 
.72767 
,39085 
•2R307 
.21027 
,07352 
-.14829 
-.39900 
-,32896 
-.27746 
-.22926 
-,15121 
-,04578 
.03818 
-.01716 
-, 07380 
-.06416 
-.02604 
.00562 

-.01121 

-.05521 

-.08565 

-.10542 

-.14275 

-•16822 

-.19003 

-.18561 

-.17356 

-,13360 

-,12977 

-.19024 

-.13707 

-.03752 

-.05289 

-.22144 

-.29824 

.15379 

.42410 

.76363 



SUBSONIC TNTEPFEREKfCE PRESS' PROGRAM FUSELAGE OUTPUT ** 


NO, 

XU 

YQ 

ZO 

VT/VFS 

y/M/v/ps 

CP 

1 

.01416 

,04011 

-.00395 

,17430 

-.05758 

1,05326 

2 

.16386 

•51524 

- ♦ 05060 

,i«on 

.18182 

1.01576 

3 

.55616 

1,49889 

-.14645 

,19498 

•58254 

.65831 

4 

1.12R7J 

2.39053 

-.23785 

.18194 

.83325 

,27935 

5 

1 .61R98 

2.72991 

-.26137 

.19152 

.88004 

.19207 

6 

2.51773 

3,28195 

-.27726 

.18164 

.90449 

,15091 

7 

3,60346 

3.91171 

-.30566 

.16224 

.96030 

,03619 

8 

4,87035 

4.51428 

-.32604 

,1364/ 

1.05000 

-.12146 

9 

6,31 046 

5,03369 

-.38029 

.09328 

1.13181 

-.28222 

10 

7,9U76 

5.39373 

-.56079 

.06522 

1.12795 

-.26970 

11 

9.67319 ■ 

5.65790 

-.76384 

,05301 

1.11974 

-.25076 

12 

11,57474 - 

5.8??10 

-.90204 

.04705 

1.10369 

-.21602 

13 

13.60747 

5.87703 

-1.20523 

.04496 

1.07300 

-.15125 

1^ 

15.75864 

-5,88705 

-1.42593 

,05448 

1.04045 

-.08485 

15 

18,01477 

5.88705 

-1.63634 

,07346 

l.OUlB 

-.03386 

;i6 

20.36171 

5,88705 

-1.85224 

,09199 

1.0U66 

-.03786 

- 17 

22.78475 

5.88705 

-2,07013 

.09761 

1 .01064 

-.04897 

18 

25,26870 

5,88705 

-2.28720 

i09678 

1.02132 

-.05221 

19 

27,79799 

5.88705 

-2.50109 

.10059 

1.01805 

-.04636 

; 20 

30,35675 

5,88705 

-2.70793 

,11776 

1.01850 

-.05097 

21 

32,92895 

5,88705 

-2*89644 

.14816 

1.02792 

-.07801 

22 

35.49847 

5,88705 

-3.00850 

.18414 

1.03r11 

-.11046 

23 

30.04918 

5.87411 

-3.04140 

.21533 

1.04411 

-.13407 

24 

40,56510 

5,84970 

-3.01o70 

--- .24546 

1.04721 

-.15470 

25 

43,03046 

5,82022 

-2.92127 

,27585 

1.05740 

-.19083 

26 

45.42981 

5.73296 

-2.76900 

,30574 

1.05947 

-.21178 

27 

47.74809 

5,56659 

-2.58310 

.33305 

1 • 05b65 

-,22687 

28 

49,97077 

5.29375 

-2.35415 

,36209 

1.03939 

-.20745 

29 

52,08393 

4,91387 

-2.09232 

,38900 

1.01369 

-.17602 

30 

54,07430 

4.45723 

-1 .02522 

,41554 

.97881 

-.12347 

31 

55,92942 

4,01876 

-1 .54610 

,43950 

.95725 

-.10840 

32 

57,63766 

3.60987 

-1.27525 

.44514 

• 97e;08 

-.14695 

33 

59,18829 

3,07411 

-1.02731 

.43259 

.93792 

-.06642 

34 

60.57161 

2.51510 

-.80451 

.46031 

.86465 

,04064 

35 

61,77894 

2.11684 

-.61229 

,50842 

• 8636O 

-.00430 

36 

62,80271 

1,85945 - 

-.45110- 

~ • .53287 

.93925 

— B 1.6 367 

37 

63,63650 

1.68701 

—.31 99 1 

,52036 

.96669 

-.20150 

38 

64.27509 

1.28057 

-.21711 

,37403 

.73784 

,32477 

39 

64,7144/ 

.52993 

-.14307 

,22042 

.45431 

,79632 

40 

64.95188 

.09065 

-« 10282 

,13292 

.18776 

1.03058 



SUBSONIC INTEJ^FEREmCF; DRtSS 


Program mjsfuage output «« 




NO* 

XQ 

yq 

ZU 

VT/VFS 


CP 

1 

.OUlb 

,02936 

-.oiloa 

,08532 

-.01032 

1.08417 

2 

, IB TH6 

.37718 

-.16834 

.07379 

•26nl4 

1 , 00680 

3 

.55416 

1,09727 

-.49300 

.04750 

* 69o 1 6 

,54636 

4 

1. 12A73 

1,74999 

-.85525 

,01695 

.93575 

.12540 

5 

1.61998 

1,99843 

-1.03579 

.04411 

•95731 

.00222 

6 

2.51773 

2,40255 

-1 ,29810 

,06469 

.96355 

.06779 

7 

3.60146 

2.86357 

-1 .59884 

.07143 

1 ,01f,47 

-.03819 

e 

4.87035 

3.30468 

-1 .87q74 

,06832 

1 .06414 

-.13538 

9 

6,31046 

3.68492 

-2.15?10 

.05246 

l.inui 

-.21105 

10 

7,91476 

3,94849 

-2.46763 

,03943 

1.10550 

-.22559 

u 

9,6/119 

4,14187 

-2.76873 

,03202 

1.10725 

-.22242 

12 

11,57474 

4,26207 

-3,04945 

,02700 

1,09484 

-,19505 

13 

13.60747 

4,30287 

-3.31300 

, 02605 

1.07501 

-.15414 

lA 

15,75864 

-4,30962 

-3.55020 

.03391 

1.05078 

-.10429 

1 5 

18.0U/7 

4.30962 

-3.76062 

,04273 

1.02704 

-,05635 


20.36171 

4,30962 

-3, 97851 

,05100 

1.02?47 

-.04703 

17 

22.78475 

4.30962 

-4,19440 

.05657 

1.02O57 

-.04459 

18 

25,26870 

4,30962 

-4,41140 

,06062 

1.02130 

-.04652 

19 

27, 79799 

4,30962 

-4.62537 

.06574 

1* 0230 T 

-.05077 

20 

30.35675 

4.30962 

-4.83190 

,07735 

1*03606 

-.07884 

?l 

32,92895 

4,30962 

-5,01222 

,09879 

1.05813 

-.12377 

?2 

35,49847 

4,30962 

-5.08566 

.12647 

1.06243 

-.14208 

23 

38,04918 

4.30014 

-5.05125 

.15076 

1*06274 

-.15000 

2^ 

40,56510 

4,28228 

-4,93522 

. 17323 

1*05912 

-.14969 

25 

43, 03046 

4,26070 

-4,74430 

,19441 

l.O6n50 

-.16027 

26 

45,42981 

4,19682 

-4,45434 

.20979 

1*04665 

-.13775 

27 

47,74809 

4,07503 

—4 . 1 22"^ 6 

.21819 

1.03533 

-.11824 

28 

49,9707/ 

3.07529 

-3.73672 

,22492 

1.00704 

-.06594 

29 

52.08393 

3,59720 

-3.31104 

,23020 

.97407 

-.00101 

30 

54.07430 

3.26292 

-2.88316 

,23940 

.93701 

.06508 

31 

55.92942 

2,94194 

-2.45653 

.25373 

.90922 

*11001 

32 

57,63766 

2.64261 

-2.05262 

,25604 

.89089 

.12604 

33 

59,18829 

2.25041 

-1.67544 

.23103 

.86664 

.19902 

3 A 

60,57161 

1,84118 

-1.33303 

,23628 

.02035 

,27788 

35 

61 ,77894 

1,54963 

-1,04100 

.27221 

.01199 

.27303 

36 

62.80271 

1,36121 

-.79910 

,28110 

.84131 

,21730 

37 

63,63650 

1,23497 

-.60167 

.24967 

.04760 

.22359 

38 

64.27509 

.93744 

-.44526 

,12857 

.68157 

.54362 

39 

64.7144 / 

.38794 

-.33843 

-.06294 

•48?00 

,01766 

40 

64,95188 

.06636 

-.27104 

-,10718 

.25226 

.97683 



** SUHSONIC TNTEPFEREmCE PRESS' 


NO. 

xo 

ro 

ZQ 

VT/VFS 

1 

,01416 

,01075 

•» 0 1 835 

.02474 

2 

, 16386 

.13806 

•.23631 

,01389 

3 

,55616 

,40163 

-.69308 

-,00798 

4 

1.12873 

,64054 

•"1.21 171 

-.01558 

5 

1,61998 

.73148 

-1 .48?90 

-,00236 

6 

2,51773 

,87940 

-1,88749 

,01040 

7 

3 ,60346 

1.04814 

-2.3454S 

,01623 

6 

4.87035 

1,20960 

-2.77677 

,01745 

9 

6,3)046 

1,34877 

-3.17506 

.01509 

10 

7,91476 

1.44525 

-3,56855 

,01245 

n 

9,67319 - 

1,51603 

-3,92825 

.01012 

12 

11,57474 

1.56003- 

-4,24307 

,00813 

13 

^ 13,60747 

1.57496 

•4.53005 

,00791 

14 

15.75864 

J.57743 

-4.77665 

,01083 

15 

18,01477 

1,57743 

-4.90707 

,01358 

16 

" 20,36171 

1.57,743 

-5.20297 

.01605 

-17 

22,78475 

1.57743 

-5,42085 

,01800 

18 

25.26870 

1,57743 

-5.63793 

,01973 

19 

27,79799 

1,57743 

-5.85182 

,02177 

20 

30,35675 

1.57743 

-6,05830 

.02591 

H 

32.92895 

1,57743 

-6.23377 

.03358 

S 

35,49847 

1.57743 

-6.20891 

,04345 

23 

30.04918 

1.57396 

— 6.21l64 

.05200 

24 

40,56510 

1,56742 

-6.04634 

,05966 

?s 

43,03046 

1,55952 

-5.79682 

,06661 

26 

45,42901 

1,53614 

-5,42738 

.07079 

27 

47. 74809 

1,49156 

-5, 01)69 

.07191 

?8 

49.97077 

1,41846 

-4.53494 

.07227 

?9 

52,08393 

1.31667 

-4 , 01466 

.07?32 

30 

54,0/430 

1.19431 

-3.49397 

.07382 

31 

55.92942 

1.07602 

-2.90218 

.07719 

32 

57,63766 

,96726 

-2.50143 

,07746 

33 

59,18829 

.02371 

-2.04964 

,06973 

34 

60,57161 

.67392 

-1,63943 

.07067 

35 

61.77894 

,56720 

-1,28978 

.08208 

36 

62,80271 

,49824 

-i.ooooi- 

,08432 

3T 

6.3, 63650 

.A5203 

- . 76434 

,07124 

38 

64,27509 

,34313 

-.57698 

,02816 

39 

64.71447 

.14199 

-.441 76 

-.07083 

40 

64,95188 

,02429 

-.36816 

-,28604 


PROliRAM «« FUSpLARF OUTPUT 
VM/Vfs GP 


• 00094 

1,09244 

.34226 

,95503 

.83308 

,31443 

1 .01009 

-.02049 

1 .(J2R66 

-.05175 

NOIrU 

-.03654 

1 ,05?06 

-.10606 

1.08164 

-.16765 

1*09653 

-.19094 

1.10197 

-.21039 

1.09937 

-.20403 

1.08808 

-, 18264 

U07795 

-.15968 

1.0571? 

-.11647 

l.03?72 

-,06629 

1*02648 

-.05365 

U0?278 

-.04620 

1*02333 

-.04739 

1*02711 

-.05516 

1*04720 

-.09644 

1*07a79 

-.15411 

l*07q88 

-.16550 

1*0771 0 

-.16048 

1 • 06959 

-.14564 

1 *06009 

-.13078 

U04O23 

-.00640 

1*02219 

-.04983 

.99103 

.01107 

*95639 

,08067 

•92376 

.14303 

•89423 

,19781 

,87257 

.23753 

.84350 

,29095 

.01530 

,34023 

.00345 

,35874 

.80756 

.35131 

• 79054 

,36890 

•70790 

.52001 

.59107 

.68267 

*49492 

.71451 





• FUSf-LAGE LOADS 


REF. FIJ^ELADE Afll 


677.89fl?? 


* CL= .01560 * CDs .OOn?0 » C^XYa -.0^697 CMY7 b ,()0?84 « CM= 


X 

CLW/WA 

CDW/WA 

X 

clm/wa 

CL ) v</WA 

.OOObO 

.00626 

.00931 

,52243 

-.14526 

.00599 

,00?0 l 

.01973 

.34000 

,544 ft 2 

-.13975 

.01?25 

,0045 J 

-.00191 

. 64964 

.56712 

-.13306 

.0172? 

.006*04 

-.06038 

,02346 

.5892 P 

-.12387 

. 02 f |97 

,0 V ?54 

-.13964 

.62818 

,61126 

-.11176 • 

,02249 

.oiHoa 

-.22007 

,34623 

.63302 

-.09749 

,02614 

.02447 . 

-.21956 

.27653 

. 6545 1 

-.08124 

,03944 

.031,88 

-.19827 

,24600 

,67560 

-.06246 

. 0160 7 

,04024 ■ 

-.17374 

,2009 ft 

,69651 

-.04279 

,0368? 

.04 Q 52 

-.14808 

.12120 

.71694 

-.02577 

.03751 

.05 Q 70 

-.10509 

.01054 

,73693 

-.00030 

.03749 

,070 IH 

-.01219 

-, ) 2860 

,75645 

.01000 

,03386 

,00271 

.12334 

-.23006 

.77545 

,04312 

.02659 

.09549 

. .29939 

-.29955 

, 79300 

•06730 

.0155? 

,10<»08 

.24762 

-.22594 

,01174 

,08212 

.00914 

,12346 

.17325 

-.13962 

.02097 

.OftOin 

-.01250 

,13060 

.11820 

-.10532 

.04553 

,10136 

-.02295 

.15447 

•08045 

-.07527 

. 86 140 

.11719 

-.02949 

. ,17103 

.05912 

-.04949 

,07654 

,1390? 

-.02046 

V , 18 R 26 

.03931 

-.02015 

. 0909? 

.15420 

-.03054 

^ .20611 

.02206 

-.01210 

,90451 

.1517? 

-.03 flft ? 

A .22455 

-.01621 

-,00424 

.91729 

.13941 

-.04710 

^,24355 

-.06126 

-.00137 

.920?? 

,1230? 

-.05560 

‘ ,26307 

-.10968 

-.00275 

.04030 

.1102? 

-.05247 

,20306 

-.11817 

-.00275 

.95040 

.10062 

-.04385 

.30349 

.03372 

.00071 

.05976 

.10240 

-.03393 

,32431 

.13354 

.00200 

,96812 

.11159 

-,02631 

,34549 

.18155 

.00353 

,97553 

.12920 

-,02? ft 0 

.36698 

.16941 

.00302 

,981 Oft 

.12737 

-,05 l 34 

.38874 

.12574 

.00210 

.98746 

.10314 

-.10335 

.41072 

.06597 

.00103 

.99196 

,07609 

-• 14;>24 

,43288 

.00181 

.00004 

,99547 

,04889 

-.17051 

.45510 

-.06652 

-.00066 

,99799 

.02260 

-.17021 

.47757 

-.11970 

-.00049 

,99950 

,00564 

-.16706 

.50000 

-.14256 

.00090 






» WING I £AW »^PESSl'>^e COfcF. 

List of x/c 


ETA *» 

.0250 

.9000 

LISTS OF 

.0500 

.9500 

CH AT ABOVE 

.1000 

.2000 

♦ 3000 

• 4 0 0 0 

1 

.5000 

,6000 

,7000 

, noflo 

.149 

,8746 

.1372 

.6018 

.0781 

.3983 

,24 74 

.196? 

.1937, 

.2169 

.2443 

,2528 

.221 0 

.226 

.7850 

.1659 

.5528 

.1166 

,3996 

.3181 

.3014 

.6989 

.2966 

,2878 

,2674 


.303 

.7732 

.2007 

.5590 

.1481 

.4236 

.3K9R 

. 35l4 

.3506 

.3446 

.3?95 

.3035 

.3639 

.361 

.74?7 

.2373 

.5796 

.1843 

.4729 

,4^73 

.3906 

.3874 

.3813 

.3645 

.3353 

,5QS5 

.A5R, 

..7662 - 
.2923 

.6133 

.2404 

.5093 

,4-»63 

.4154 

.4117 

.4058 

,389 0 

.3629 

,3339 

.536 

,7879 

.3539 

,6457 

.3033, 

.5437 

,4*.09 

.4346 

.4 307 

.4260 

.4109 

.3904 

.9755 

.M3 

.8030 

,4139 

.6660 

.3636 

.5644 

.4757 

.4466 

.4429 

,4398 

,4280 

.4154 

.4163 

.690 

.8196 

,44h6 

.6444 

.3899 

.5305 

,4a28 

,4479 

.445? 

.4402 

.4330 

,4334 

.4485 

.760 

,7960 

.4543 

.6004 

.3912 

,4831 

,4358 

.4337 

.4331 

.4272 

.4230 

.4314 

.4547 

,845 

.6826 

.3754 

.5348 

.3186 

.4441 

.3997 

,3947 

.3959 

,3935 

,3881 

,3863 

.391 0 

.923 

1 

.5042- 

.2598 

.4236 

.2160 

-.3705 

.3302 

.3187 

- ,3190 

-.3187 

.3120 

.3003 

• 9«70 

Q 

t 

,3360 

.1427 

.2861 

.1195 

.2446 

.201? 

,1877 

,1906 

.1948 

.1907 

.1779 

.1619 



*»*wlN6 NC velocity ANU PHCsSJrE COrFFTMENT 


Eta = ,97lo 


x/c 

U/V UP 

U/V LfH 

.0^447 

1 .l<)710 

.9041? 

« 0S4bn 

1.19303 

.9927? 


1 .1«S25 

1.06164 

• ?73no 

1 . \e<»3S 

1,06088 

^4?17R 

1 .1*5484 

1 .05104 


1 .14139 

1.03414 

^72700 

1 . 10038 

.99368 

• 8^355 

1 .04569 

.94670 

^<?4S5o 

.9arf6c; 

.89460 

•993H4 

.85986 

,80646 


ETA a .9??6 


X/C 

I'/V UP 

U/V LOW 

.02447 

1.2042(1. 

.86952 

, 0545f) 

1 .2U7o 

.9528? 

.1 464.S 

1 ,21816 

1.03000 

.27300 • 

1,21541 

1.04514 

.42178 

1.20757 

I.C4004 

.5782? 

1 . 18865 

1 .021A0 

.72700 

1*13892 

.9/423 

.05356 

1,0/537 

.91905 

.94550 

1 .OOl 11 

.66835 

,99384 

,«717l 

,7988? 


eta = .H/,5? 


X/C 

U/V up 

U/V LOW 

.02447 

1 .25484 

,83673 

. 0545o 

1.23904 

.92582 

•1464S 

1.23757 

1,01063 

• 27300 

1.24254 

1.03173 

• 4?17« 

1 .23678 

1.03012 

.5782? 

I .21482 

1,01146 

.72700 

1 ,16260 

.95657 


1.10183 

,R93?6 

.94550 

1,02868 

,84637 

.99384 

.8935? 

.79870 


V/v UP 

V/V L<*'* 

CP Up 

(12667 

*08(166 

-.35114 

-.03918 

,04933 

-.4106? 

-,043ni 

,03?) D 

-.39201 

-,(15986 

.tl3i05 

-.34/83 

-.4883(1 

,0290b 

-,3-3109 

-.1 140? 

,03o2l 

-.30 /09 

-.12888 

,04?1 5 

-,??278 

- « 1 3 1 A 0 

.06145 

-.1 0983 

-.12304 

,08343 

.02323 

-.10047 

.10814 

,25624 

V/v UP 

V/V 1 UW 

CP Up 

-,A64?8 

,0/845 

- ,43596 

— » (1 7 2 4 5 

.04448 

-.46030 

-,o79?7 

.01731 

-.46896 

-.(18578 

.OI7/V 

-,46380 

-.09518 

.023^1 

-.44/06 

1 0304 

,03211 

-.40761 

-.10164 

,o5n(.j 

. -,?99(i5 

-,096l (1 

,0608/ 

-,163?0 

-,(18694 

,0»650 

-.00978 

-.064*^1 

. 1 O34I 

.24102 

V/V UP 

V/V lUW 

CP Up 

-.0851 1 

,00543 

-,=:5204 

-.08344 

, 04950 

-,516?3 

-.08773 

.0163^’ 

-.51360 

-.09420 

,01093 

-,5258? 

-.09789 

,0l4?5 

-.51349 

-,o95A8 

.0?3?^ 

-.46418 

-.08628 

.04296 

-.14762 

— . 0 7661 

,06365 

-.21557 

-.06542 

.07796 

-.0621 0 

-,o409l 

.08947 

,20357 


CP LOW 

CP L-U 

CP NETl 

•17887 

,53001 

.3-1703 

,01209 

.4??/l 

? 60 0 n 

* 

-.12664 

.2553/ 

.22009 

-.12501 

.??282 

,18303 

-.1045? 

.22656 

, 1 9l 88 

-.06992 

.2371 / 

. 1 V?47 

, ,01084 

.23362 

.1 noo 

, 1 0088 

.21041 

.15304 

.19629 

.17306 

.12265 

.34835 

.09211 

.050 1 1 

CP LOW 

C® L-u 

CP 

,24291 

.67888 

,50 714 

. 09o8B 

.551 19 

.41 506 

-.06086 

.40810 

. 34650 

-.09187 

.37192 

.12007 

— . 081 62 

,36634 

.31 3P9 

— .(14*9? 

.36268 

. 1 1 4 0 

.04858 

.34763 

,?96R9 

,1525? 

.31572 

.?768f| 

.24365 

, 25843 

.22704 

.36244 

.12142 

,089o 1 


CP LOW 

CP L-U 

rn NFTL 

.30037 

.B5?41 


.14220 

.65843 


-.02159 

.49201 

.4 140? 

-.0642 1 

.46161 


-.(16101 

,45248 


-.02.355 

, 4406.1 


.08376 

,4113 / 

0 

.20159 : 

.41716 


.28458 

. 34668 


,36549 

.16192 

. 1 



eta a 


x/c 

U/V UP 

U/V LOW 

.02<^A7 

1 .2911?; 

.81826 


1 .25524 

. .91171 

.1 4b4=, 

1 ,25031 

1,00190 

.27300 

1 « 25940 

1.02617 

.421 7« 

1,25014 

1.0246? 

.5782? 

1.2235B 

1.00429 

.72700 

1 .1 71R4 

,94396 

,a5iF.«; 

1 ,11720 

,87464 

.94? 

1 ,04749 

.B3074 

.993K4 

.90939 

.79975 

eta s .6904 

- 


X/C • 

U/V UP 

U/V LOW 

.02447 ■ 

1 .29863 

.82166 

.054'50 

1.26352 

,9021 3 

.)464=i 

1.26691 

,99645 

,27300 

1 .27319 

1 .03076 

.42} 7« 

1.26091 

1,02974 

5 ,5702? 

1 .21560 

,99304 

, 72700 

1 ,16739 

,94 199 

,8535«; 

1.11335 

,87684 

.945S0 

1 .04933 

,83597 

,9y3f=l4 

.91703 

,80982 

ETA s .6|31 


1 

X/C 

U/V UP 

U/V LOW 

.02447 

3 .29248 

,83298 

• 0S46i) 

1.26452 ' 

.89637 

.1464S 

1.27794 

.99361 

.27300 

1.28176 

1.03901 

.4217r 

1 .26935 

1.03962 

.S7B22 

1 .20418 

.98520 

,72700 

1 ,15838 

,94528 

■ .9S3?=; 

1 .10274 

.08533 

,94SSo 

1 .045] 1 

,84 706 

,99384 

.92108 

.82132 


V/V UP , 

\I/\J [_ 0 *l 

r.P UP 

09420 

. 0 «o ?0 

-,*63581 

”, 'iBSlp 

, 05?49 

-.55,203 

-,00097 

.01695 

-,54355 

-,o 9724 

.00944 

-.56471 

-,o 9«16 

.00941 

-.54360 

-..09155 

. 01 S.J 4 

= , 4.8296 

— . 0 7 80 3 

, 0392 i> 

-. 7666 ? 

- , o 658 Q 

,05736 

-.74678 

-,o 5?24 

06820 

-,099n6 

-.02572 

.07497 

.17469 

V/V/ UP 

V/V 1 06 ' 


-.09287 

.00833 

-.65261 

4 . 0 B 3 O 0 

.05713 

-.57145 

-,o 906 ? 

.01959 

-.68016 

-.09795 

.00866 

.-,59563 

-, 097 S 0 

.00764 

-.56777 

-,oR 386 

.01597 

, 4 ^ 3^4 

-.06807 

.0 3168 


-.05222 

,04660 

-.23704 

-.03681 

.05765 

-.10160 

-,o 09 ';o 

,05788 

.16125 

V/w UP 

V/V 1 (!W 

CP Up 

-,o 8958 

,00663 

-, 638] 1 

-.08344 

, 06? 08 

— • 57364 

-.09135 

.02152 

-.60530 

-.09479 

• . 0023 / 

-.61463 

-.09235 

-.00008 

-.58500 

-.07290 

.0141 7 

-. 437(1 1 

-.05769 

.02423 

-.33457 

-.04077 

.03609 

-.21344 

-. 0247 ? 

.04120 

-.o 92 o 9 

, 00174 . 

.04475 

. 1 536 R 


CP LUW 

CP L-U 


.33196 

.9677 7 

^ ftr US 

.16062 

.72145 

.S^l 

-.00400 

. 5394(1 

^ 4 <A w 7 « 

-.05284 

.51 1 4ft 


-.0497? 

.49388 

,M?1S 

tm . '3 0 Q *3 

• V f> ^ -J 

n -» /. n 

#. T 

, < T 1* 

.lOflSl 

.47503 



,49336 


• 3n^9 

.4127 

. -c* 1 0 ^ 


.19156 

. 1 n<f=;S 


CP LOW 

CP L-U 

CP fJ?'!'!.. 

.32623 

.97804 

,P76?5 

.18593 

.76738 

^62742 

.00670 

.6(1686 

.48776 

-.06215 

.67340 

.44971 

-.06005 

. 50771 

. 44 6 ((4 

.01.364 

.47758 

.43473 

. 1 1?7R 

.46866 

.43613 

»?34?9 

.47134 

,45663 

5 .30637 

.4(170/: 

.79927 

.3514? 

.190 W 

.16681 


CP LUW 

QO l^\J 

fp. N: TV, 

♦30676 



.1900? 



.01229 

.61759 


-.07898 

.57555 


-.00022 

.5057(1 

*44P«:i 

.02925 

,4662b 

, a M n 

♦10607 

.44144 

,41 

.21908 

.472S2- 


,20796 

,38005 

.^71 R« 

.33295 

. 1 79?7 

. lS7iS 



ETA = 


x/c 

u/v up 

U/V LOW 

.{)?A47 

1 .29062 

.83628 

.ObAFio . 

I.2820B 

.90336 

« 1464C, 

1.2 7304 

.99885 

.27300 

1.27985 

1 . 04368 

.A217P( 

1.26976 

' 1.046?2 

.578??. 

1 .20298 

.99191 

.7?700 

.1 .14991 

.95085 

.B5355i 

1 . 08928 

.89817 

.94550 

1.03093 ' ■ 

.86447 

.99384 

.91523 

.83221 

- •4^83 

x/c 

U/V UP 

U/V LOW 

.02447 

1.28704 

.83952 

.05450 • 

1.2^>7]6 

.91332 

. 1 4fi45 

1 .26346 

1 .006(1? 

.27300 

1.27315 

1,04765 

.4?l 7ft 

1.26563 

1,05168 

.57B?? 

1.20289 

1.00185 

.72700 

1 .142 78 

.95803 

.85? 

1.0 7673 1 

,91186 

.9*5.... 

1.01601 

.88224 

.99384 

.90759 

.84209 

a .3809 



X/C 

U/V UP 

U/V LOW 

.02447 

1 .28199 

,84291 

. 0545(t 

1 .2507n 

.92271 

.14645 

1 .25206 

1,01287 

.27300 

1.26355 1 

1.05152 

.421 78 

1.25838 

1.05687 

.5782? 

1.20077 

1.01140 

.78700 

1.13603 

.96520 

.85355 

1.06596 

.92464 

.94550 

1 .00326 

.89866 

.99384 

.90102 

.85128 


V/V UP 

V/V LO** 

rp Up 

-,08810 

,08766. 

-.63365 

-.08181 

,060^8 

-.56783 

-.08640 

.ni9»4 

-.59340 

48SS5 

-,oon<»3 

-.6091 8 

-,(18470 

-;00,355 

-.58565 

-,(16353 

.01066 

-.43317 

-.04756 

,01856 

-.31519 

-,029e;(i 

, 027 it> 

-,184?6 

-.01307 

.039*5 

-.06263 

.01204 

.03499 

.16459 

V/w '.IP 

V/V LUW 

CP UP 

-.08526 

.08901 

-,6?bn? 

- . o77 70 

.05813 

-.556?o 

-,(180 1 1 

■;0l696 

-.57077 

-,(i8?94 

-.00159 

7.59302 

- ,077a3 


4- S 70 

— • (15669 

.00748 

-.4322? 

-.0 3876 

.01554 

-.29903 

-.01960 

02?2b 

1 5745 

aP?8 ? 

,0241 7 

-,032?o 

. (12060 

,030)9 

.17865 

V/V UP 

V/V l9W 

CP Up 

-.08439 

.08925 

—.61340 

07640 

.05683 

-.54144 

-.07577 

.01621 

-.54441 

(17656 ' 

-,00l7t> 

-.57046 

-,o7033 

-.00597 

-.55705 

-.04935 

♦00517 

-,42680 

-.02934 

.01385 

-,?8387 

-,009>3R 

.01956 

-.13469 

.00673 

.02131 

-.00657 

.02813 

.02922 

.19055 


CP LOW 

CP L-U 

Cn 

.30076 

.9744 1 

* 

.1«3I6 

,75099 


*00193 

.59533 

, 4<J4QO 

-.08855 

.52063 ■ 

.4 

-.09378 

.491 88 

. 4 •'i m 4 

.01602 

.44920 

, 4 ) ^ n 4 

.09637 

.41156 


.19591 

. 3M01 7 


.25752 

.32016 

.31^07 

.31474 

.15014 


CP (.nw 

CP L-U 

ro 

.?9497- 

.91999 

. 77?ni 

. 16486 

.72306 


-.01235 

• 5S 8 2 


-.09671 

,496.11 


-♦1 050.6 

»470?4 

• 1 » \ r 

-.00376 

,42846 

.19151 

.08254 

.3815 ' 

,3S5l 4 

« 1 7058 

.3280 

. 7 1 579 

.22551 

,25770 

, 2-790 

.29762 

.11897 

. 0««51 

cp low 

CP L-U 

CP NFTL 

.28875 

.90215 

,74807 

.14729 

,68873 

.56174 

-.02610 

.51831 

.431 77 

1 0469 

.46577 

,99?09 

-.11578 

»44?1 / 

.38670 

-.02291 

.40389 

.3609? 

.06861 

,35248 

,12551 

*14655 

.2«125, 

.26893 

• 1 9530 

,20 1 8 7 

.19054 

.28132 

.09076 

.07151 



ETA a ,3o35 


x/c 

U/V UP 

U/V LOW 

V/V/ UP 

,02447 

1.25630 

.80474 

-.07230 

• 0545o 

1.23544 

.91838 

-•06866 

.14645 

1.23455 

1.02103 

-, n674l 

.27300 

1 .24021 

1.05650 

— * 06846 

.42170 

1 .24579 

1 .06240 

06079 

.57822 

1.19333 

1.02147 

-.03853 

.72700 

1.12734 

.97255 

- , 0 1 640 

.85355 

I.OS6O6 

.93319 

.00373 

.94550 

.99053 

.90605 

.02017 

.99384 

.88840 

.85092 

.04174 

ETA a .2261 
x/C 

U/V UP 

U/V LOW 

V/V UP 

.02447 

1.26080 

.80775 

-.06869 

• 0545f) 

1 .24096 

.92860 

-.07017 

• 14645 

1.22337 

1.02917 

-.06423 

.27300 

1.22748 

1.06248 

-.05713 

.42170 

1.22405 

1.06786 

-.04334 

S .57822 

1,17936 

1.03018 

-.01091 

.72700 

1.11811 

•98297 

.00212 

.85355 

1.05105 

•94778 

•0IH03 

.94550 

.98026 

.92336 

.03017 

.99384 

.08755 

.86055 

.04701 

ETA a .1407 

X/C 

U/V UP 

U/V LOW 

V/V UP 

.02447 

1 .27812 

.78587 

-.14076 

.05450 

1.20990 

.88335 

-.11505 

• 14645 

1 .22853 

1.05422 

-.00252 

,27300 

1 : 22292 

1,10540 

' # T ■ "T . , ^ Vf 

.42170 

1.21653 

1.10905 

-.05903 

.578?*» 

1 .14060 

1.01667 

-.03644 

.727 

1 .10095 

.97140 

-.01122 

.85356 

1.04023 

,94505 

-.01337 

.94550 

.99741 

.95110 

.00756 

.99304 

.88653 

.07104 

.00469 


V/V 

.10?H6 

.05957 

-.00127 
-.00a37 
.0033 7 
.01302 
•olftsa 
.02101 
.03179 


V/V lo« 
•JOftBO 
.0579b 
•0lA46 
.00350 
-.00400 
.00?ll 
.01100 
,0U91 
.013?! 
.02117 


V/V i.Oa 
,03433 
.OOftHl 
-.01921 
*,OOA 0 O 
-.02447 
-O0o94 
02431 
0OI009 
.01052 
.00002 


CP UP 
-.55301 
-,5061 ? 
-,5OJP0 
-,534fio 
-.52845 
-.40947 
-.2646? 
-.ll4oP 
.01847 
.212P7 


CP Up 
-.S0339 
-.51071 
-.478^0 
-.48699 
-.47806 
-.37766 

-.244^0 
-.1 O4o0 
.02240 
,21397 


CP Up 
-.61793 
-.45715 
-.49256 

^ A 7 ^ A ^ 

^ * “t ? 'T *t 

-.46275 

-.?94}5 

-•2081,9 

-.08164 

.00512 

.21820 


CP LOW 
.35246 
.15516 
-.04260 
-.11499 
-. I27?5 
-.04324 
.05424 
.13031 
•10003 
.20100 


CP LOW 
• 34649 
.13582 
-.05922 
-.12739 
-•13058 
-.06094 
.03373 
.10242 
.14920 
.26509 


CP LOW 
.39450 

.22401 

-.1 1063 

— OOIQT 

tC . ti .~ 3 -’ f 

-.22754 
-.03351 
•05607 
. 1 0627 
.09588 
.24650 


CP L-U 
• 90596 
.66127 
.46130 
.41901 
.40120 
.36622 
.31086 
.24440 
.16156 
,06883 


CP L-U 
.90900 
.65453 
.41 930 
.35960 

.33947 

.31672 

.27831 

,?0646 

.12673 

.05112 


CP L-U 
1.0124J 
.6P1 16 
.3ni9j 

.23521 

.26064 

.2642 

,18791 

.09076 

.02030 


CO NFTI 
,70126. 
.5101 7 

. 379q-^ 
,352n6 
.34991 
,3 3369 

,29423 
,2 3495 
. 1 5399 
,0542(1 


CO UFTt. 

,79k<,4 

.52973 
,34600 
.30396 
,290^9 
.?9051 
.25921 
, 1 9974 
,12199 
,04023 


CD MPTL 

,00443 

.57329 
,30002 
* < 11 
.19725 
,?39l 9 
,24090 
, 1 H?f-0 
,00375 
,01850 



X IT 


««(IN6 LOfiDS »* 


tTA CNC/rA 

y *1487 0 •384-58 

? *??610 *41840 

3 *30350 .450-54 

4 *38089 *46572 

'■> *45826 *47?67 

8 *53567 ,473*1^0 

7 *61306 *464(^6 

•69045 *43855 

.76784 .396^5 

*84522 .32678 

yy .92261 *23825 

12 .97098 *14797 


♦« total wing loads * 

WCL 

• 35435 


CDC/CA 

Cmc/ca 

)f/C CP 

.00436 

-.17316 

.45050 

.00697 

-* 1 8961 

*45319 

,00590 

-.19738 

.43830 

, 0O4h4 

-•19728 

.42361 

.0060 0 

-.19266 

.40760 

,00733 

-*18495 

.39076 

.00781 

-* 1 7328 

.37299 

,00509 

-*15514 

.35352 

.00155 

-.13140 

.33161 

.00388 

-.09849 

.30140 

.00806 

-.06423 

.26959 

*00955 

-♦03693 

.24960 


wco 

WCM 

X/C 

.0026 7 

-8.21076 

23.17154 





Ill 


«« TOTAL CONKrrifjRflTlON PAOaMETE 


« 

CL ru CM X/C 

• 370n3 ,00?Sib -8,lp4Q0 ??,443‘51 

** IMOUCED drag a .01174 



SAMPLE OUTPUT 
(case II) 


112 



SU8S0N iNier^FeWf NCE PPtSSUHE PROnRfiM « TMPUT 0- »» 


1 

6.974400 

65.020000 

9.918335 

.600000 


5 

26.398000 

o.oooooo 

1 • 0 9 0 0 0 n 

3,060000 

V .onoono 

10 

1 .000000 

-l.ooooon 

O.OOOOOn 

0,000000 

3.000000 

15 

1.000000 

1.000000 

1 .nooooo 

l.OOOOOO 

13.000000 

20 

6,000000 

o.oooooo 

1*260000 

2,500000 

4,000000 

25 

6.500000 

26.^98000 

O.OOOOOo 

O.OOOOOO 

0,000000 

50 

33.000000 

O.OOOOOO 

20 .OOOOOo 

32.500000 

40,000000 

55 

<*6.000000 

60.000000 

57 . e ;00000 

70.000000 

9 0.0000 00 

60 

1 lOi 000000 

122,600000 

130.00000O 

135.000000 

140.000000 

65 

147.500000 

160,000000 

180. OOOOOO 

200.000000 

21 2 . 50000 O 

70 

220,000000 

225.000000 

23O,O0000n 

237.500000 

250,000000 

75 

270.000000 

290.000000 

302,500000 

310.000000 

315.000000 

80 

320.000000 

327,500000 

340.000000 

360,000000 
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-.15473 

-.1908? 

-.22360 

-.23800 

'-,24885 

-.25067 

-.29314 

-. 28377 

-,?5900 

-.24192 

-.24164 

—.48231 

-.64722 

74931 

.72209 

,71645 

,68606 

.44471 

,35247 


,28509 

.21560 

,19787 

.1478? 

,12089 

.091 81 

,06973 

.04177 

,01954 

•0398U 

,04121 

.04321 

,04333 

.03917 

,02284 

-.02967 

-.06316 

-.08025 

-,l?908 

-.15915 

-.17088 

-.21456 

-.22871 

-.23947 

-,25053 

-.25099 

-,?654l 

-.26210 

-.25366 

-.24913 

-.25190 

-.29290 

-.33086 

-.43/41 

-.09137 

-.00768 

,01343 

.02097 

,03700 

,05376 

,07061 

.08023 

.10138 

.10540 

-.07853 

.00030 

.01720 

.02504 

♦04090 

.0Sq27 

,07573 

.08691 

.12058 

.12706 

-.05938 

.01284 

.02402 

.032?8 

,04790 

,(16048 

.00438 

,0976b 

, 14039 

.158)1 

-.04155 

.02519 

,03161 

,04022 

.05563 

.07004 

,09350 

,10055 

.17340 

.1858? 

-,01954 

‘ .02265 

,03597 

.04802 

.06063 

,08465 

•10171 

.1121? 

.17612 

.18845 

.00159 

.01705 

.03941 

,05702 

.06477 

,09010 

.1091 7 

,11386 

.17343 

,18500 

.00035 

.02236 

,04355 

,05708 

,06067 

,09?39 

.10931 

,11673 

.16206 

,17097 

-.00494 

.02907 

,04733 

,05722 

,07206 

,O9i60 

.10001 

.11944 

.15012 

, 15625 

-,00961 

.03497 

.05065 

, 05604 

.07503 

,09400 

,10606 

.1218? 

,13959 

, 14327 

-.00980 

.04076 

.05409 

. ,05810 

,07783 

,09543 

,105^5 

.12140 

,1299b 

,13107 

-.00091 

.04726 

.05832 

.06399 

,00074 

.09520 

,10140 

.11531 

.12079 

• 1 2 2 *) 4 

.00717 

.05318 

.06219 

.06935 

.00342 

,09505 

,10162 

.10990 

,11260 

.1 1327 



SUWSONIC T^'TeR^EflF^■CF. p«F:SS PpObHaw tttt fuselage output 


NO. 

XU 

Yf5 


VT/VFS 

VM/v/fS 

CP 

1 

, 0 1 4 1 S 

,01075 

.02101 

.01730 

-.22446 

1.03322 

2 

,18386 

,13806 

,2/105 

,02319 

.05536 

1.08898 

3 

,55616 

.40163 

,80035 

,04379 

.45726 

.84662 

4 

1 ,12873 

« 64054 

1 ,44«92 

,06030 

,66e;79 

.581 16 

5 

1 .61998 

.73148 

1,85440 

,05555 

.75632 

.44140 

6 

2.51 773 

.87940 

2.511/2 

,04649 

•85456 

.27406 

7 

3.60346 

1.04814 

3.22736 

,03526 

.981 24 

.03603 

8 

4.87035 

1,20960 

3.91575 

.02237 

1.14361 

-.29988 

9 

6,31046 

1.34877 

4.46o39 

,00796 

1.31224 

-.67632 

TO 

7.914/6 

1,44525 

4.648/8 

-.00257 

1.22835 

-.48597 

1 1 

9,67319 

1.51603 

4.71361 

-,00945 

1.16894 

-.35458 

12 

11.574/4 

1,56003 

4,66623 

-,01240 

1 .12895 

-.26796 

13 

13,60747 

1.57496 

4,55352 

-.01172 

i .09088 

-.20594 


15,75864 

1,57743 

4,37770 

-.03106 

1,07674 

-.15803 

15 

18.01477 

1 ,57743 

4,16729 

-.09571 

1 .08353 

-.18020 


20.36171 

1.57743 

3,95i39 

-,02120 

1.13692 

-.28539 

17 

22,78475 

1.57743 

3.73350 

.00518 

1*15596 

-.32622 

18 

25,268/0 

1,57743 

3.51643 

.02759 

1.13078 

-.27248 

19 

27.79799 

1.57743 

3.30254 

,03887 

1*08691 

-.17989 

20 

30.35675 

1.57743 

3.09607 

,02936 

1*04919 

-.08634 

?l 

32,92895 

1.57743 

2.88399 

-.08907 

1*02316 

-.05452 

fo 22 

35,49847 

1,57743 

2,66640 

-.10340 

1*01922 

-.04928 

?3 

38.04918 

1,57396 

2.44962 

-.10743 

1.01631 

-.04426 

2^ 

40.56510 

1.56742 

2.24717 

-.10930 

1*02214 

-.05642 

25 

43.03046 

1,55952 

2,05933 

-.11244 

1 *03492 

-.08307 

26 

45.42981 

1.53614 

1.83545 

-.11452 

1*02703 

-.06749 

27 

47.74809 

1.49156 

1.62334 

-.11489 

1.02412 

-.06167 

28 

49.970 n 

1 ,41846 

! .42309 

-.11674 

1*02016 

-.05408 

29 

52.08393 

1.31667 

1.23727 

-.12210 

1.01374 

-.04242 

30 

54,07430 

1,19431 

1.06513 

-.13306 

•99841 

-.01450 

31 

55,92942 

1.07682 

,94126 

— , 1484/ 

.99863 

-.01927 

32 

57.63766 

.96726 

• 84a56 

-.16595 

1.01691 

-.06130 

33 

59,18829 

.82371 

.7434? 

-.J9039 

1*01000 

-.05606 

34 

60,57161 

.67392 

.64162 

-.24198 

*98721 

-.03305 

35 

61.77894 

.56720 

,56115 

-.31141 

.98219 

-.06134 

36 

62.802/1 

,49824 

,49963 

-.37107 

1.01161 

-.15873 

37 

63,63650 

.45203 

, 44985 

-.40741 

1*04697 

-.25599 

38 

64,27509 

.34313 

.40619 

— , 4 852 7 

.98079 

-.21104 

39 

64. 71447 

.14199 

.3/427 

-1,04886 

.97050 

-.96231 

40 

64,95\88 

.02429 

.35678 

-2,6956? 

1*05677 

-3,68916 



** subsonic IMErFERFmCP press " PrOORAm <»■» rUSFLAOE OUTPin •»» 


NO. 

AO 

YO 

70 

VT/VFS 

VM/VPS 

CP 

i 

.0K16 

.02936 

.01574 

,05765 

-.14990 

1,06300 

2 

.18366 

,37718 

.2030/ 

.071 72 

•09631 

1 .07613 

3 

, SBft 16 

1.0972/ 

. 6 0 0 2 7 

,12381 

,47710 

,81 004 

4 

1 ,12673 

,1.74999 

1 ,09?46 

, ] /259 

.69754 

,51113 

6 

1.61998 

1,99843 

1.40728 

.15607 

.77493 

.38796 

6 

?,51 7/3 

*2,40255 

1.92234 

. 1 28 78 

.85703 

.25454 

7 

3,60346 

,2,86357 

2. 48075 

,09660 

.96973 

,05248 

8 

4,87n35 

3,30468 

3.0217? 

,05959 

1.11633 

-.24417 

9 

6,31046 

3,6B49? 

3.43744 

,01629 

1.26702 

-.57331 

10 

7,91476 

3.94849 

3,54787 

-.01239 

1.19769 

-.41788 

11 

9,67319 

4,14187 

3.55609' 

-.02603 

1.14r37 

-.31035 

12 

11.57474 

4,26207. 

3.47?6l 

-.03336 

!. 12666 

-.26400 

J3 

13.60747 

4,30267 

3.33655 

-,04149 

1 .09458 

-.19626 

H 

15.75864 

-.,4,30962 

3.15125 

-.06256 

.98786 

.02817 

15 

18,01477 

4,30962 

2,94084 

-.02017 

.76719 

,43303 

16 

20.36171 

4,,30962 

2.72494 

.08118 

•92307 

,14316 

' 17 

22.78475 

4.30962 

2.50705 

.05298 

.99476 

.01561 

18 

25.26R70 

4,30962 

2.28997 

,03828 

•98923 

•02198 

19 

27.79799 

4.30962 

2.07609 

.04351 

•95706 

.08275 

20 

30,35675 

4,30962 

1.86875 

,05399 

.93082 

,11499 

?1 

32.92895 

4,30962 

1 , 66?44 

-.05824 

.98^96 

.03247 

^ 22 

35,4984/ 

4,30962 

1 .46715 

-.07590 

1 , 00*^94 

-.01764 

^ 23 

38.04910 

4,300] 4 

1 .28923 

-, 08 l ?8 

) .02082 

-.04847 

24 

40,56510 

4,28228 

1.13605 

— , 08?35 

1.02516 

-.05743 

25 

43,03046 

4,26070 

1.00680 

-.08266 

1.03759 

-,08279 

?6 

45,42981 

4.19682 

.86942 

-.07672 

1.03P17 

-.08305 

?7 

47. /4809 

4,07503 

,73442 

-.06488 

1.03870 

-.08248 

28 

49.97077 

3.07529 

.6240 7 

-.05230 

I.C3062 

-.06453 

?9 

52,08793 

3.59720 

.53364 

-, 04285 

l.OlPlO 

-.03823 

30 

54.07430 

3,26292 

• 45433 

-.03950 

. 9948 ? 

,00878 

31 

55.92942 

2,94194 

.41S62 

-.04153 

.99013 

,01796 

32 

57,63766 

2,64261 

.39974 

-.04916 

1.01412 

-.03078 

33 

59,18829 

2.25041 

.36022 

-.04857 

.98491 

.02765 

34 

60,57161 

1.84118 

.33602 

-.09265 

•94148 

.10602 

35 

61.77894 

1.54963 

.31317 

-.17932 

.93997 

,08494 

36 

62.80271 

1,36121 

.29872 

-.25378 

•99S61 

-.05536 

37 

63 , b3b50 

1 .23497 

.28718 

-.29924 

1.05656 

-.20209 

38 

64.27509 

.93744 

.2/447 

-.30195 

.84658 

,19548 

39 

64,7144/ 

,38794 

.26495 

-.73506 

.70594 

-.03853 

40 

64,95108 

,06636 

.25966 

-2,62397 

•50524 

-3,45360 



SUBSONIC TNTErFERFmCE PHtSS^ 


program fuselage output 


NO. 

KQ 

YO 

ZO 

v/T/vrs 

VM/VfS 

CP 

1 

.01416 

.04011 

.00660 

.11173 

-.09^61 

1.06736 

2 

.18386 

.51524 

.08534 

.12584 

,13n79 

1 ,05410 

3 

.55616 

1 .49889 

.25372 

.17248 

.51^00 

,75091 

4 

J .12873 

2.39053 

.4 7606 

.21298 

.74799 

.40941 

5 

1 .61998 

2,72991 

.63286 

,19104 

.02055 

,29787 

6 

2.51773 

3.28195 

•90150 

.15420 

.87^91 

,21660 

7 

3.60946 

3. 91171 

1.18757 

, 11461 

.95789 

.06975 

8 

4,87035 

4,51428 

1.46802 

.06954 

1.07569 

-,15959 

9 

6.31046 

5.03369 

1.66563 

.01041 

1.19378 

-.40920 

TO 

7.9U76 

5,39373 

1,64103 

-.02685 

1.15048 

-.33453 

11 

9,67319 

5.65790 

1.55120 ‘ 

-.04234 

1. 13281 

-.27782 

12 

11,57474 

5.82210 

1 .40520 

-.05149 

1.10097 

-.22765 

13 

13.60747 

5,87783 

1.22870 

-.06373 

1.06946 

-.14585 


15.75864 

5.88705 

1.02698 

-.06323 

1.00762 

-.01926 

15 

18.01477 

5.88705 

• 8 1 656 

-.01625 

*94>89 

.11372 

16 

20,36171 

5.8R705 

*60066 

,05020 

.94100 

.11290 

-'l7 

22,78475 

5,80705 

.30278 

,06621 

*96507 

.06307 

18 

25.26870 

S. 88705 

.16570 

,06263 

.90035 

,03510 

19 

27.79799 

5,88705 

•,04819 

.06980 

•97788 

,03901 

?o 

30,35675 

5.88705 

-.25529 

,09392 

•97257 

.04547 

21 

32,92895 

5.88705 

-.45334 

,11876 

.98560 

,01253 

H 22 

35.49847 

5.8S705 

— * 6 1 0 0 0 

.13558 

1.00872 

-.03578 

^ 23 

38.04918 

5.87411 

-.72062 

.14914 

1.02303 

-.06841 

24 

40.56510 

5,84970 

— . 7 8846 

,16339 

1.03043 

-.08778 

25 

43,03046 

5.82022 

-.81622 

,17906 

1*04573 

-.12419 

26 

45.42981 . 

5,73296 

-.82293 

,20010 

1.05322 

-.14731 

27 

47.74809 

5,56659 

-.80525 

,22527 

1.05735 

-.16624 

28 

49.97077 

5.29375 

-. 75770 

,25356 

1.04737 

-.15895 

29 

52.08393 

4.91387 

-.68507 

,27460 

1.03471 

-.14412 

30 

54,07430 

4,45723 

-.60361 

.27709 

1.01361 

-.10320 

31 

55,92942 

4.01876 

-.49402 

.29862 

1.00375 

-.09585 

32 

57,63766 

3.60907 

-.37762 

,32761 

1.02227 

— . 1 5028 

33 

59, 18829 

3.074U 

-.27891 

,37506 

.97474 

-.09005 

34 

60.57161 

2.51510 

-.19330 

•*,40296 

*90501 

.01715 

35 

61 ,77894 

2. 11684 

-.11634 

.40603 

•9lo50 

•00612 

36 

62.80271 

1,85945 -- 

-.04^927 

,40113 

1.00175 

— • 1620G 

37 

63,63650 

1.68701 

.00543 

,36961 

1.05475 

-.24357 

38 

64.27509 

1,28057 

.04633 

.41130 

.79735 

.20040 

39 

64,71447 

,52993 

.07558 

,51032 

*51014 

,49030 

40 

64.95188 

>. .09065 

.09143 

.42530 

.25252 

.80011 



SUBSO^UC TnTErFEREksCE PRESS : PROGHAm »» FUSFt-ABE OUTPUT *« 


NO. 

Xfj 

Y9 

ZQ 

vt/vfs 

VM/vfS 

CP 

1 

.01416 

,04011 

-.00395 

,10807 

-.06979 

1.07425 

2 

,18386 

,51524 

-.05060 

,10568 

. 1 7oF9 

1 .04540 

3 

.56616 

1.49889 

-.14645 

,10152 

•56868 

.70722 

4 

1.12873 

2,39053 

-.23785 

,08076 

.82027 

,33000 

5 

1,61998 

2.72991 

", 261 37 

,09064 

.87249 

.23355 

6 

2.51 773 

3,28195 

-.27726 

.08312 

•90029 

. 18558 

7 

3,60346 

3,91171 

-.30566 

.06571 

•96a65 

,06552 

e 

4.87035 

4.51428 

-.32604 

,04064 

U0476I 

-,09826 

9 

6,31046 

5.03369 

-.38029 

—.00301 

1*12554 

-.26051 

10 

7,91476 

5,39373 

-.56079 

-.03313 

1.12016 

-,25003 

u 

9,67319 

5.65790 

-.76384 

-.04774 

I.U122 

-.23208 

12 

11.57474 

5.82210 

-.98704 

-.05658 

1.09442 

-.19735 

13 

13,60747 

5,87783 

• 1 . 20523 

-.06199 

1.06176 

-.12964 


15,75864 

-5,88705 

-1.42e;93 

-,05451 

1 *02485 

-.05303 

15 

18.0U77 

5.88705 

-1.63634 

-.03263 

•99i07 

.01675 

;i5 

20,361/1 

5,88705 

-1.85224 

-.00211 

•98281 

.03418 

' 17 

22,78475 

5,88705 

-2.07013 

.02263 

.98417 

,03098 

18 

25,26870 

5,88705' 

-2.28720 

.03870 

.99068 

.01707 

19 

27,79799 

5,88705 

-2.50109 

.05259 

•99374 

.00973 

20 

30.35675 

5,88705 

-2.70793 

,07433 

1.00164 

-,00879 

?1 

32,92895 

5,88705 

-2,89644 

,10523 

1.01724 

-.04567 


35.49847 

5,88705 

-3.00850 

,13995 

1.03148 

-,08291 

^ 23 

38,04918 

5,87411 

-3.04140 

,16960 

1.04033 

-,10995 

24 

40.56510 

5,84970 

-3.01070 

.19851 

1.04514 

-,13017 

?5 

43,03046 

5, 62022 

-2.92127 

,22822 

U059S4 

-.16582 

26 . 

45,42981 

5,73296 

-2.76900 

.25757 

1.05006 

-,18479 

27 

47.74809 

5,56659 

-2 .58.3 10 

,28493 

1.05846 

-.19790 

28 

49,97077 

5,29375 

-2.35415 

,31416 

1.03015 

-.17568 

?9 

52,08393 

4,91387 

-2.09232 

,34092 

1.01355 

-.14167 

30 

54,07430 

4.45723 

-1 .82522 

.36634 

.97654 

-.08713 

31 

55,92942 

4,01876 

-1.54610 

.38823 

.95016 

-.07026 

32 

57,63766 

3.60987 

-1.27525 

,39184 

.97840 

-.10970 

33 

59. 18829 

3.07411 

-1.02731 

.37646 

.94181 

-.02866 

34 

60,57161 

2,51510 

-.80451 

,39998 

.06008 

,00537 

35 

61.77894 

2.11684 

-.61229 

,44410 

•86864 

.04845 

36 

62.80271 -- 

— 1.8594S— 

-,45ll0- 

*46713 

- . 94958 

-will 21 “■ 

37 

63.63650 

1,68701 

-.31991 

.45734 

.97468 

-.15689 

38 

64,27509 

1.28057 

-.21711 

,31698 

.74404 

.35682 

39 

64.71447 

.52993 

-.14307 

,16624 

.46089 

.81335 

40 

64.95)88 

.09065 

-«10282 

,09097 

.19399 

1,03885 



SUBSONIC THTtuFEREK'CF 




Xu 

YO 

7Q 

.01416 

.02936 

-.01 308 

. 1B186 

.37718 

-. 16834 

* 55616 

1.09727 

-.49300 

1 . 12873 

1.74999 

-.85525 

1.61998 

1.99843 

-1.03579 

2.517/3 

2.40255 

-1.29810 

3,60346 

2.86357 

-1 .598fl<K 

4,87035 

3,30468 

-1 .8 7974 

6,31046 

3,68492 

-2.15210 

7,9U76 

3.94849 

-2.46763 

9,67319 

4,14187 

-2.76873 

11,574/4 

4,26207 

-3.04945 

13.60747 

4,30287 

-3.31308 

15,75864 

,.4,30962 

-3.55020 

18. 01477 

4.30962 

-3.7606? 

20,36171 

4,30962 

-3.97651 

22,78475 

4,30962 

-4.19440 

25,26870 

4,30962 

-4 *4 1 148 

27,79799 

4,30962 

-4.62537 

30.35675 

4,30962 

-4.83198 

32.92895 

4,30962 

-5.01222 

35,4984 7 

4,30962 

-5.08566 

38.04918 

4.30014 

-5.05125 

40,56510 

4,28228 

-4,93522 

43,03046 

4.26070 

-4.74430 

45.42981 

4.19682 

-4.45434 

47,74809 

4,07503 

-4,12?76 

49,97077 

3.07529 

-3.73672 

52.08393 

3,59720 

-3.31104 

54,07*30 

3.26292 

-2,88316 

55,92942 

2,94394 

-2.45653 

57.63766 

2,64261 

-2.05?62 

59,18829 

2.25041 

-1,67544 

60,57161 

1.84118 

-1.33383 

61 . 77894 

1,54963 

-1,04180 

62.80271 

1.36121 - 

-.79910 

63.63650 

1,23497 

-.60167 

64.27509 

.93744 

-.44526 

64,71447 

.38794 

-.33243 

64,95188 

,06636 

-.27104 


pw£ S S' 

program «• 

OT/V^S 

\/M/VrS 

,05212 

-.04932 

.03799 

.22126 

• 00307 

• 64 1 30 

-,03409 

*88b87 

-.01139 

.92356 

.00524 

.93638 

.01047 

•99?38 

, 00653 

1 .04337 

0103b 

1 .08922 

-,02481 

1.09097 

-.03360 

1.091 47 

-.03998 

1.08006 

-.04224 

1 .06033 

-.03490 

1.035U 

-.02452 

I ,00938 

-.01159 

1.00904 

.00128 

.99p89 

,01261 

1.00124 

.02328 

1*00545 

.03836 

1.02235 

.06127 

1.04616 

.08928 

1 .05605 

.11343 

1.05936 

.13581 

1.05«07 

.15712 

1.06151 

,17?04 

1*04906 

,18196 

1.03901 

,18972 

1 .01928 

,19623 

.97014 

,20666 

.94973 

,22220 

•91575 

,22563 

.90770 

,20060 

.87468 

,20493 

.82897 

,24059 

*02148 

.25039 

•85?82 

.22103 

•86961 

.09909 

.69518 

-,10268 

•49955 

-.23249 

.27960 


fUSFl.AGE OUTPUT «« 
CP 


T .0R714 
1,01356 
.62058 
,21271 
,UR«6 
. 12^54 
.01508 
-,08797 
1 6868 
-.18758 
-.18913 
16560 
-.12465 
-.07225 
-.01942 
-.00422 
.00222 
-.00263 
-.01146 

-.04647 

-.09735 

-.12186 

-.13348 

-.13624 

-.14943 

•.12887 

-.11151 

-.06037 

.00279 

,06898 

.11316 

,12660 

,19812 

,27749 

,27378 

.21399 

.21095 

,53045 

.79050 

.94218 



*» SUBSONIC TMTErFEREhCF PRESS . PROORAm »«• FUSrUAGR OUTPUT 


xo 

YQ 

2Q 

VT/VFS 

VM/VrS 

CP 

,0U16 

,01075 

-.01835 

• 0 1496 

-.04762 

1.09030 

,IH3B6 

•13B06 

— #23^3 1 

,00454 

•27598 

1.00320 

,55616 

.40163 

-.69308 

-.01799 

•75327 

,44934 

1,\?R73 

.64054 

-1 .2li7l 

-.02830 

•94191 

.11314 

1,61998 

,73148 

-1 ,48790 

-,01774 

•97045 

.05821 

2,51773 

,87940- 

-1.88749 

-.00792 

•97377 

,05194 

3, 603‘^6 

1.04814 

-2,34545 

-.00331 

1.01592 

-.03201 

4,87035 

1,20960 

-2.77677 

-.00262 

1.05026 

-.10211 

6,31046 

1.34877 

-3,17506 

-.00558 

1 • 0 6^68 

-,14238 

7,91476 

1.44525 

-3.56855 

-.00884 

1.07879 

-,16147 

9,67319 

1.51603 

-3. 92625' 

-.01160 

1.07985 

-,16373 

11.57474 

1,56003 

— -4,24307 

- -.01395 - ~ 

1.07147- 

-.14627 

13.60747 

1,57496 

-4,53005 

-,01453 

1.06906 

-,12671 

15,75864 

^4,57743 

-4,77665 

-.01172 

U04167 

-,08456 

18.0U77 

1.57743- 

-4,98707 

-.00852- 

-1.01733 

-,03492 

20,36171 

1,57743 

-5.20297 

-,00487 

1.01022 

-,02054 

22,78475 

1,57743 

-5,42085 

-.00114 

1,00624 

-.01251 

25.26870 

1,57743 

--5,63793 

.00245 - 

J .00776 

-.01556 - 

27,79799 

1,57743 

-5.85182 

.00607 

1.01709 

-.02593 

30,35675 

1.57743 

-6.05830 

,01133 

1.03557 

-.07206 

32,92895 

1,57 743-^ 

■ -6,23377 - 

,01963 - 

— 1.96592 

-.13489 - 

35,49847 

1 .57 743 

-6.28491 

,02982 

1.07408 

-.15241 

38,04910 

1,57396 

-6.21164 

,03855 

1.07428 

-.15340 

40,56510 

- -1 ,56742 - 

-- -6.04634 - 

: ■,04640- 

- 1.06932 

--,14370 

43,03046 

1,55952 

-5,79682 

,05358 

1.06790 

— , l4 1 44 

45,42981 

1,53614 

-5.42738 

.05808 

1.04427 

-,09309 

47,74809 

- 1.49156 

-5.01169 

.05958- 

- 1.02914 

-.06029 

49.97077 

1,41946 

-4,53494 

,06039 

.99919 

-,00202 

52.08393 

1.31667 

-4.01466 

,06096 

.96497 

,06549 

54.07430 

-- 1,19431 

-3.49397 

- ,06300 

.93311 

,12675- 

55,92942 

1,07682 

-2.98218 

.06695 

.90428 

, 18066 

57,63766 

,96726 

-2.50143 

,06777 

.88360 

,21883 

59,18829 

.82371 

--2. 049 64 . - 

.06027 - 

.85520 

,27138 

60.57161 

.67392 

-1 ,63943 

,06128 

.82745 

,32040 

61,77894 

,56720 

-1,20978 

.07303 

.81616 

,33839 

62,80271- 

--,49824 

-1,00001- 

- .07571-.-- 

- .82160— 

- ,32852- 

63,63650 

,45203 

-.76434 

,06289 

.81632 

.33956 

64,27509 

,34313 

-.57698 

.01884 

.73158 

,48418 

64,71447 

.14199 

- -,44}76 

-.09426 

- .62389 

.63519 

64,95188 

.02429 

-.36816 

-.31853 

.54190 

.63853 



* FUSFLAGE LOADS *« REF, FIISEL&GE AR 677, 89P?? 


CLa 

,04998 * CDs 

•00139 » CMXYs 

-.U537 4 CMYZs 

.00090 

* CM = 

X 

CLW/wA 

Cnw/WA 

K 

CU^/WA 

Ci)w/WA 

00050 

tOO?S2 

.09104 

,52243 

-.11389 

.00072 

0020 1 

.00694 

,35496 

,5448? 

-.11262 

,0063? 

0045i 

-.01251 

,66531 

,5671? 

-.11027 

. 0 i T 1 0 

00RQ4 

-.05263 

.84747 

,589?8 

-.10531 

.0150? 

012S4 

-.10396 

.64071 

,611?6 

-.09680 

.01708 

0)ft02 

-.16037 

.342^3 

.6330? 

-.0859? 

.02125 

0244^ 

-.15043 

. 26600 

,65451 

-.07288 

.0?9\9 

03188 

-.12601 

.23323 

,67569 

-.05715 

,0J?56 

04024 

•♦09545 

.19388 

.69651 

-.04039 

,03395 

04652 

-.06115^ 

*10379 

,71694 

-.02657 

.03525 

05670 

-.00569 

-.00698 

.73693 

-. 01204 

,03575 

07078 

.09834 

-.14414 

.75645 

.01217 

.032/8 

08?71 

.23912 

-.24567 

,77545 

.03582 

.02619 

0R54y 

. .41725 

-.29016 

,79389 

.05902 

.01580 

10608 

.35366 

-.21 398 

.81174 

.07417 

.0029? 

12i46 

•26491 

-.12642 

.82897 

.08191 

-.01136 

13860 

. 19701 

-.09381 

,84553 

,09489 

- . u 2 1 0 9 

15447 

•15076 

-.06538 

.86140 

.iiin 

-,Q?666 

171,03 

.12608 

-.04121 

.87654 

. 13??8 

-.02438 

18826 

. 10366 

-.02121 

,8909? 

,14716 

*'.02637 

20611 

.08462 

-.00631 

.90451 

,14540 

-.03562 

22455 

.04502 

-0 00056 

. 91729 

.13699 

-.'’•44 39 

24355 

-,00870 

-.00043 

. 929?? 

. 12515 

^.05286 

2630 7 

-.07771 

, 00534 

.94030 

.11794 

04384 

23306 

-.10276 

-“n 00674 

.95048 

.1148? 

-.04058 

30 34R 

.03072 

.001 95 

,95976 

.12074 

-.0296? 

32431 

.12033 

.00761 

,9681 2 

.13197 

-.021 01 

34549 

.16829 

.01038 

.97553 

,14890 

-.01626 

36698 

•16B12 

.01013 

.981P8 

,14633 

-.04976 

38874 

.13759 

.00811 

,98746 

,l?533 

-.09951 

4lf)72 

.08907 

.00502 

,99l6f, 

,11961 

-.13067 

43288 

.03110 

• 001 75 

,99547 

.U«14 

14504 

45S18 

-.03680 

-* on 1 7o 

,99799 

,08755 

067o9 

47757 

- -.08692 

-.00404 

* - ,99950 - - 

,06515 

-.00750 

50000 

-.10823 

- • 0 0 .3 7 4 





1>446 


I 



** l»lNR L' >^PE5SiJRE COCF, 

L!S1 0^' X/C 



, i ) 2=%0 

, 9 n n 0 

. 0500 
,9500 

, 1000 

.2oC0 

.3000 

« A 0 C 0 

.5000 

,6000 

.7000 

,8000 

• ETA 

***^ I.T5T‘S of 

CF at abo'/f; X/C 




/ 




.14-3 

1,5100 
, 19f,J 

1.0413 

.1209 

.7272 

.5460 

,4878 

• 4 58 2 

.4367 

.4132 

.3755 

.3080 

,.?26 

1,077/ 

.2263 

1.1549 

.1574 

.8095 

.620? 

• 560 3 

.5201 

.4793 

.434/ 

.3839 

! 

.3195 

.303 

1.82K9 

,2643 

1.256b 

.1915 

.8783 

.6675 

.6012 

.5585 

.5159. 

,4696 

.4181 

.3557 

.381 

1.0125 

,2947 

1.3249 

.2?37 

,9049 

.7490 

.6526 

.598? 

.5540 

,5056 

,448b 

.3819 

*458 

l.asr.s 

.3491 

1 *3906 ’ 
.2794 

1.0434 

.7908 

.6850 

• A27o 

.5809 

.531 1 

,4761 

.4197 

.536 

1,9372 

.4104 

1.4473 
.3421 ■ 

1.0941 

.8^52 

.7104 

.6498 

.6033 

.5542 

.5040 

.4615 

.613 

1.9790 

,4694 

1.4861 
• 4016 

1.1269 

. 8 4 6 8 ■ “• 

.7264 

.6642 

.6179 

.5711 

.5282 

.5011 

.690 

2.0336 

,5019 

1.4765 
• 4262 

1.1004 

.8971 

.7283 

• 6654 

.6161 

.5732 

.5431 

.5306 

.768 

1.9948 

,5027 

1.4347 ■ 
.4242 

1.05?6 

• 8n64 

.7084 

*A46o 

.5950 

.5550 ■ 

.5333 

.5998 

.845 

1.H605 . 

,41S0 

1.3519 . 
.3455 

.9974 

.7525 

.6497 - 

- .5885 

.5413 

,501? 

.4723 

.4533 

.923 

1,594 7 
,2859 

1.1723 

.2338 

.8643 

.6252 

.5179 

.4607 

,4??7 

,3896 

.3579 

,3280 

.971 

1,1677 

.1564 

.7938 
• 1272 

.5231 

*3422 

• 2837 

.9615 

.2467 

.228,7 

.2066 

.1839 



♦ »WlNG rjn .lN'f.AK VELOCITY ANO PHESSURE COrFFTC 


eta = ,9710 


x/c 

u/v UP 

U/V LOW 

V/V HP 

V/V 1.9W 

CP Up 

CP LUW 

CP L-U 

CP NETl. 

W12447 

1 .A0P3R 

.72910 

-.10845 

.13436 

-.89570 

.4689? 

1.16412 

1 ,i«n 8 

1 .33?41 

.87962 

-,o93or 

.09090 

-.73072 

.22232 

.95253 

.75511 

• 1464c; 

1.2A42Q 

1.00806 

- . 086*4 

,07?61 

-.52855 

-.02141 

.50716 

.411 04 

p273no 

1 .19R7R 

1.029?? 

-.lion 

,07920 

-.43177 

- . 065 1 5 

.36609 

.79407 

•4?17A 

1 .17R31 

1.02957 

-.144*7 

.p8l62 

-.39446 

-.06661 

.37785 

,?58l R 


Ulb71R 

1.02005 

-.17496 

.08874 

-.35747 

-.04818 

..309?9 

.P3307 

•7270O 

. 1 .11089 

.98463 

-.19178 

.10367 

-.26472 

.01978 

,28410 

,?n045 


1.0S28A 

.94088 

-,195«9 

.12512 

-.14415 

' .09997 

.24432 

.17111 

o94SSo 

• ,984'2s 

,89137 

-.1 8938 

,14a68 

-.00467 

,18639 

.19106 

, 1 3094 

,993^4 

.8^185 

,80455 

-.16851 

.17525 

,?36l0 

.3314? 

.09732 

.051 75 

ETA s 

X/C 

li/V UP 

U/V LOW 

V/V l|o 

V/V 

CP UP 

CP l.OW 

CP L-U 

CP UETL 

•C2447 

1,51596 

.64169 

-.1 8230 

.15?2'7 

-1 .17940 

.59437 

1.77377 

1.41 077 

o0545o 

1 .A1957 

.78977 

-.1 5?49 

.10223 

-,04498 

,37801 

1 .-3229V 

1 .1?Vft3 

#1464S • 

1 ,3289i^ 

.93310 

-.13318 

.06337 

-.73007 

.12673 

.85681 

.72537 

fo ^30o 

1.281 Th 

.98594 

-.13194 

,05961 

-,622ol 

.0244? 

.64643 

,54013 

°° «4;?17k 

1.2‘ffl93 

•1, 00301 

-.13941 

.06482 

-.54968 

-.01023 

. 5394 b 

, 4 5 1 4 5 


1.21517 

.99830 

-.14756 

.074 39 

-.47645 

-.00?1 3 

.47432 

, 3947 ? 

• 7?ron 

1.15521 

,96016 

-.14710 

,093'’3 

«, 34488 

. 06975 

.41463 

. 34948 

• 8S3SCS 

1 .0848? 

,91103 

-.l4?3? 

.11456 

-.19362 

.15914 

. 35?7e> 

.311978 

.94550 

1 ,00624 

.86403 

— 4 1 3364 

.13186 

-,030?9 

.24112 

.27142 

.?4f)47 

-993H4 

.87384 

. ,79685 

-.1 1179 

. .14052 

.22345 

. 35337 

• .12492 

. o95 1 4 

eta s .B452 
X/C 

(f/V UP 

U/V LOW 

V/V UP 

V/V LOW 

CP UP 

CP LUW 

CP L-U 

CP NETf 

.02447 

1,60034 

,58851 

-.21680 

. 164*2 

-1.3336,3 

,66?76 

2.0513V 

1 .*7933 

fl0S45o 

1 ,46494 

1 ,74853 

-.16996 

.10927 

-1,05590 

,44448 

1.50038 

1 .-30058 

o 1464c; 

1,36569 

.90049 

-. 14039 

.05859 

-.81658 

•18881 

1.00539 

,.45083 

.27300 

1.32524 

.959] 4 

-.13375 

- ,0^433 

-.72170 • 

.07863 

.80033 

.6714? 

^4?}7p 

1 .29152 

,98168 

-.1311? , 

,04364 

-.64399 

.03450 

.67849 

,57746 

.57P.?? 

1 .?505R 

.9798? 

. -.12674 

■ .05H'2 

-.55C59 

. 0374.8 

,9*806 


•7?70o 

1.18461 

.93749 

-.11608 

,07032 


,11739 

.51877 

.46 4. 4 4 

•B535S 

1 . 1 U5? 

.88248 

-.10593 

.09094 

-.24764 

.21708 

.46472 

.4401? 

.94550 

1.03522 

.84089 

-,p94?8 

,10507 

»,0‘7999 

,?8909 

.3690/ 

.35513 

.99384 

.89570 

,79686 

-.06947 

.11647 

.19677 

.36271 

.1 6644 

.1410? 



£TA = 


X/C 

U/V UP 

U/V LOi^ 


3 ,648/9 

,56349 

.054S0 

1,48726 

.73084 


1 ,384/2 

.8H/P0 

.? raon 

1.34825 

,94890 

♦A?17h 

1 . 31050 

.97153 


\ ,26400 

^Q6845 

.72700 

1.19728 

.92196 

.HS3*3^ 

1.13219 

,86199 

.94^ 

1,05530 

,82424 

» 993b*» 

.91203 

,79773 

eta 3 .6q0A 

- 


X/C 

U/V UP 

U/V LOW 

.02447 

3 ,65500 

.56540 

,0545n 

1 ,49459. 

,72228 

,1464=; 

3 .40275 

.88188 

,27300 

1.36440 

.95163 


1 « 32354 

,97463 

ro .57827 

1.25727 

,9563? 

.72700 

1 ,19453 

. ,91857 

,85355 

1.12953 

.86275 

.9455(1 

1 .05789 

,82878 

.99384 

.91967 

.80765 

eta * .6131 


/ 

X/C 

U/V UP 

U/V L09 

.02447 

1 ,64131 

,57823 

,05450 

1.49104 

.71966 

.14645 

1.41327 

,88007 

.27300 

1.37325 

- ,95940 

,4217fl 

1 .33263 

,98369 

.5782? 

1 .24558 

,94854 

.72700 

1.18573 

,92129 

.65355 

1.11941 

,87098 

#^45^n 

1 .05407 

,83951 

*99384 

.92386 

.81908 


o 

> 

> 

V/V 1 OW 

CP up' 

?3064 

.160)3 

-1,5069.3 

” • 1 738? 

,11243 

-1,10943 

-.1 41 74 

,057/3 

-,86lo8 

-.13540 

,039/i 

-.77507 

— , 1 2866 

.03484 

-,68676 

«r.l l?9p 

.040-861 

-.57887 

-.10? 1.4 

.05026 

-,42646 

-.08867 

.07749 

-,?82?3 

-,oT396 

08760 

-.11785 

-.0462? 

.09380 

.16857 

V/V UP 

V/V.- I.U8 

C® UP 

-.22847 

,16803 

-1 ,52078 

-, 1 7206 

.11627 

-1 ,12643 

-.14335 

,05876 

-,60345 

-.13539 

,0346b 

-,Bl?42 

-.12654 

.02675 

-.71617 

-.1 08oo 

.03557 

-.56147 

-.089-12 

.04011 

-.4181 2 

- . 0 7 1 64 

,06?65 

-.27365 

-,054b1 

.06861 

-.12079 

— « o?64? 

♦o7?no 

.15564 

V/V up 

V/V L'l* 

CP UP 

-, 22246 

,1650i 

-1,48674 

-.17150 

.1195/ 

-1.11749 

-.1437(1 

.05867 

-.92811 

-.13159 

.02955 

-.83210 

-.12044 

.02021 

-.73576 

- . o9565 

,0'3l38 

-.53290 

-.0771? 

.03891 

-.39686 

05776 

, 04QO9 

-,?505f. 

-.<14053 

.05?90 • 

-.11156 

-.01286 

,05546 

.14825 




CP LOW 

CP L-U 

ro NrTL 

.69327 

2.20019 


.47203 

1.58146 


•212^4 

1,07331 


.09891 

.87399 


..05519 

.74194 

• Q 

*o.6r.3B 

•.6.3925 


.1484? 

,57488 

.S3n 7 

.25669 

,53893 


.32186 

.4197 


.36630 

.19774 



CP LOW 

CP t-u 

CP U5Ti, 

.69126 

2.21205 

2.03345 

.48457 

1.61100 

1 .42201 

.22317 

1.12662 

.94305 

.09398 

.90640 

.75061 

.04960 

.76576 

.65403 

. 08484 

.64631 

.581 7ft 

.15597 

, , 57408 

.53817 

.25749 

.53143 

,52337 

.31706 

,43786 

.43703 

.35321 

.1975/ 

.17831 

CP LOW 

r.p L-u 

CP -VPTl 

.67595 

2.16268 

1.99717 

.48781 

I,6o550 

1.43579 

.22651 

1,15462 

.96366 

.0/924 

.91 133 

,75063 

.03203 

,76779 

,65368 

.1001/ 

.6330 / 

.58135 

.15174 

.5486O 

.5 1 9(19 

.24417 

.49473 

.48803 

.30021 

.41177 

.41170 

.33571 

.18746 

.17016 



eta a .5357 


x/c 

ll/tf UP 

U/V L'Tk 

V/V CP 

V/V [..)« 

CP Up 

CP LOW 

■ CP L-U 

CP crTj_ 

.0844/ 

: . 63078 

.5H675 

-,p1877 

.16ii;l 

-1,46084 

’ .66559 

2.1 2644 

1 .95527 

,0545o 

1 ,48.117 

,72948 , 

-.16831 

,11606 

-1,0'5831 

.47327 

1.5715W 

1 ,39746 

. 1 464C5 

1,40489 

.886Q9 

-,l37P6 

,1)54 0 a 

-,907i8 

.21433 

1.12152 

.93654 

.27300 

1.36957 

,96485 

-.12472 

,02450 

-.82205 

.068HH . 

,89093 

,73364 

.421 7rt 

1 ..33239 

.99038 

-.11179 

.01526 

—.73348 

.01894 

.75242 

.63919 

.57B2? 

1.24425 

.95509 

-.08539 

,02540 

-.5282? 

.08784 

• 6 l 606 

.86524 

.72700 

1.17723 

,92673 

• p o6595 

.03o55 

-.37671 

.14201 

.51 873 

.4914? 

.65355 

1.10608 

,88360 

-.04563 

.03749 

-.22096 

.22216 

.44311 

.43903 

.94550 

1 ,04004 

.85678 

-.02754 

.03915 

-.08184 

.27074 

.35258 

.35142 

,99384 

,91910 

.83003 

-.00117 

.04259 

.15933 

.31795 

.15562 

. . 1410 / 

eta s .4583 
X/C 

IJ/V UP 

U/v LO»‘ 

V/V CO 

V/V l04 

C2 CP 

CP LOW 

CP L-9 

CP ’"^ETU 

.0244/ 

1.61544 • 

.59723 

-,p13A2 

,1 5o6o 

-1.4?3iT 

. .65323 

2.07640 

1 .89862 

•05450 • 

1,4/072 

■ , 74 320 

-• -.16345 

. 10952 

-1 . 06775 

.45301 

1.52076 

1 . 3400-9 

•14645 

1 .39008 

.89650 

-.13105 

♦04P57 

— . 8 7 1 12 

•19714 

1 .06845 

.89304 

.27300 

1.35980. 

.97019 

-.11796 

.02007 

-.79801 

.05853 

,85664 

.70664 

.421 TH 

1.32675 

.99634 

-.10439 

,0l053 

- -,719\n 

.00720 

.72631 

.M675 

.57822 

1.24380 

.96493 

-.07805 

.01912 

-,5?6i3 

. 06897 

.59510 

.54253 

9 .72700 

1 .16994 

.93394 

-,n5661 

,0-2438 

-.35969 

.1286? 

.48831 

,46006 

,853 

1.09360 

.89724 

-.03517 

02916 

-.19373 

.19753 

,3912 

,38662 

,<?45n,. 

1 .02527 

,87450 

-,f<1674 

,02953 

-.05123 

.23921 

.29044 

.28808 

,99384 

. .91062 

.84009 

,00804 

.03435 

,17335 

.30088 

.12753 

.11186 


Eta a ,3ft09 


X/C 

U/V UP 

U/V LOi>t 

V/V UP 

V/V i.ow 

CP UP 

CP LOW 

■ CP L-U 

CP NETL 

.02447 

1.59504 

,60966 

■ 21.303 

.15466 

-5.37496 

.63799 

2.01294 

1 '08i^ 

,05450 

i .45390 

, 75787 

-.16.364 

.10364 

-1,02828 , 

.43062 

1.45890 

1.27500 

.14645 

1 .3715? 

.90646 

-.12761 

,04?77 

-.82721 

. 1 793? 

1,00653 

. P 4 3 7 2 

.27,300 

1.34579 

..... ,9756! 

-,112?6 

.01446 

--,76449 

.04518 

.81267 

- ,67?44 

.42178 

1.31725 

/ 1.00195 

-♦o97i 6 

.004.78 

-.69601 

-.00393 

.69208 

,588*3 

.578?? 

1.24107 

,97429 

-.07079 

.01238 

-.51903 

.050B3 

.56986 

,51 604 

.72700 

1,19319 

,94lOS 

r 04754- 

,01850 

-.34406 

,115?6 

.45932 

,43154 

« 85355 . 

1.0^322, 

,90996 

-,0?601 

,0??S7 

-.17133 

,17413 

,34546 

,339to 

,9455(1 

1,01298 

.89113 

-.0(1849 

.02299 

«,026l 5 

.20919 

.23534 

.23189 

♦99384 

.90447 

,84961 

. 0 1 384 

,02989 

.18473 

.28426 

,0«953 

,085o9 



ETA a ,3035 


x/c 

U/V UP 

.0244/ 

1 .56220 

• 0545fi 

1 .42341 

.14646 

1.33789 

•27300 

1.32288 

.4217© 

1.30209 

.5782? 

1 .23256 

.72700 

1.15500 

.85355 

1.07520 

•94550 

1*00172 

•99384 

.89260 

» .2261 

X/C 

M/V UP 

•02447 

1 .51268 

•05450 

1 .39916 

.14645 

1.31272 

.2730(5 

1 .29463 

.42170 

1.27725 

.57822 

1.21847 

.72700 

1.14659 

•85355 

1.07129 

•94550 

1 . 00 lOl 

.99304 

.89361 

a .1487 

X/C 

U/V UP 

.02447 

] .45007 

.05450 

1.32055 

• 14645 

1 .29960 

• 27300 

l.,285«o 

.42170 

1 .2 7331 

.57822 

1 .18970 

.727 

1 . 14C54 

.&53'>3 

1.07190 

.94550 

1.02281 

.99304 

.90453 


U/V LOW 

v/y UP 

.57197 

“, 20265 

• 76053 

-.15369 

.92284 

-.1)575 

.98238 

-. 1 0322 

1.00639 

-• o88n6 

.98383 

-.06O6? 

.94792 

-.03561 

.91761 

-# 01366 

.89924 

.00431 

.85007 

.'^2737 


U/V LOW 

V/W UP 

.60637 

-,19or6 

.78736 

-.15397 

•93404 

-.1 1533 

.98391 

-.09497 

1.00625 

-,o73o6 

.98962 

-.0431? 

.9586 7 

-.01890 

.93410 

-.001 10 

.91812 

♦ 0 1 ?44 

.86205 

.0321 1 


U/V LOW 

V/V UP 

.63881 

-.25307 

.77687 

-.19670 

.96380 

-.14996 

1 , 01553 

— . 1 1 0 /. A 

« 1 

1.03138 

-.10950 

.97403 

-.07940 

• 95510 

-.05275 

♦9428? 

-.05641 

♦95664 

-.03604 

.«823>' 

-,03870 


V/V LOW 
,15503 
, 09o^t> 

• 003'»/ 
“,00359 
,003Htt 
,0l!?3 
,0U?3 
,oi«;ofe 

,0?39b 


V/V lO>^ 

.1^45 A 
,c57ia 
,00?B6 
“,01094 
-,0U52 
-.OOfbB 
.00019 
-,00050 
-.00539 
“•00044 


V/V t.Oa 
.04^ t>4 
.00?33 
-.0276» 

“.nUf^b 

-,030f>ii 

“.01453 

00)72 

“,0240<> 

-,f)20«9 

-.03319 


CP Op 
-1 ,?9439 
*.Q54?5 
— • 746P4 
“.7100? 

“ p ft59fl{) 

-.4987? 

“.32530 

]54o6 

-,00347 

,?06?4 


Cf> UP 
-1,17415 
“.09771 
-.58901 
“.543SR 
- , 50 1 0 4 
-.46551 
“• 306?1 
-.14571 
-.00217 
• ?0406 


CP UP 
-1.04933 
-.72897 
— . 65 7 06 
-.52655 
-,59Bo4 
-.40594 
“.29540 
-.15008 
“,047?9 
.18325 


CP LOW 
.6H7S9 

•42903 

.14963 

• 0 3 5 0 3 

-.01282 

.03236 

* 10226 
•16004 
• 1 9446 
.28377 


CP L'>8 
.551 «1 
.38975 
•12903 
.031 90 
-.01274 
.02064 
.08155 
.1289? 
.15927 
,?6?86 


CP LOW 
.52221 
.41081 
.07077 
-.03148 
-.06430 
.05128 
.08847 
.11151 
« 08698 
-22481 


CP L-U 
1,98198 
1.38328 

,89657 

,74504 

,64698 

.53088 

.42756 

.31409 

.19793 

.07754 


CP L-U 
1.82596 
1.28746 
.81804 
.67577 
.58830 
.48625 
.38776 
•27462 
,15144 
.05880 


ro L“U 
1.^7153 
1,1 39 78 
.73783 
.59508 

.53373 

.45723 
.3838 
.26169 
« 174? f 
,04155 


CP NETt 
1 ^«4588 
1,90003 
. 74327 
.61476 
,^49«0 

,48001 
,40?fil 
, 31239 
.19954 
,058e;n 


CP hftl 
1 ,69704 
I . 1 0?«3 
,68797 
,57?75 
,51143 

.44403 

, 35O79 
,77477 
.16470 
,05359 


CD MFTL 
1 .6277= 
,99437 
.61251 

,4991 6 

.45320 
.41900 
.360 ©7 
,25476 
. 1 2»71 

.034 fO 
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»» WiNti LOAUb O* 



ETA 

CNC/r^A 

cDC/t:A 

CmC/CA 

X/C CP 

1 

•14R?0 

.70079 

,o5no3 

-.30121 

.42981 


•22610 

.72IS3 

.04595 

«,j>9418 

.40772 

3 

.303S0 

.759^,9 

•OA?Ob 

-.29240 

,38506 

4 

•3R089 

.77033 

.04017 

-.20330 

,367?6 

s 

•45SH8 

•76776 

.04060 

-•27004 

.35172 

fS 

.53567 

•75593 

,04006 

-.25305 

,33581 

7 

•6J306 

.73l«;5 

,03953 

-.23354 

.31925 

B 

• .ft90^5 ■ 

.60704 

.03?53 

-.20662 

.30074 

9 

.76784 

♦62076 

.02392 

-.17365 

.27973 

1 r) 

.84522 

.52033 

.01103 

-.1 3060 

.25114 

11 

.92261 

.30603 

.00126 

-.00531 

.22053 

1? 

.97090 

.23631 

-.00407 

* *04074 

.20624 

— — 

total wing 

loads * 

WCL 

.58050 

wco 

•02«43 

wrM 

-13.34778 

X /c 

22.99340 



** TOTAL CONf TGUftATION PARAMETEi * 

CL CO CM 

.63049 .0?Q*^2 -13.492?4 

INDUCED OHAG = *OP6?0 


X/C 

?1. 39966 



LISTING OF PROGRAM 


13 ^ 



A04NiXX*5t250»70000«482511*RCST5786P FANPOD 00000010 

♦NOTAPES *PSS 00000020 

UP0ATE(N» 00000030 

RUN76 ( SA » I=COMP ILE »NL50000 ) 00000040 

REWINDINEWPL»L60) 00000050 

CO'’YPSS* 00000060 

CXIT* 00000070 

REWIND(NEWPL*LGO) ' " 00000080 

COPYPSS* 00000090 

I 00000 lOO 

♦DECK MAIN " 00000 I 10 

PROGRAM FANPOD t I NPUT *OUTpUT » TAPE5 = INPUT »TAPE6=0UTPUT » TAPE9 ♦ TAPEIO >00000 120 
n APE19 >T APE20 > TAPE21 > TAPE22 > TAPE2 3 1 TAPEl I *J APEU > JAPE 16 > UPE24 ) 00000130 

C ' main ♦♦ * ~ . 00000140 

c* HIGH-SPEED INTERFERENCE EFFECTS ON V/STOL AIRCRAFT 00000150 

c* __ (SUBSONIC Interference PRESSURE PROGRAM) 00000160 

c - — OOOOOlTo 

COMMON/DAT/ DA(5000) 00000180 

COMMON/CRG/ PI »PI4 .RC>aETA»SlNDP>COSOP 00000190 

COMMON/CFG/ 0G( 15)' Q000O200 

COMMON/CPB/ DB(13> 10000210 

COMMON/CPF/ OFl 13) _ 00000220 

COMMON/CPW/ DW(18) -- - -- 00000230 

COMMON/CPP/ DP (12) 00000240 

_COMMON/CPN/ 0N(21) __ _ _ 00000250 

COMMON/ CFK/ DK( 14) '' ' " ”” - - - .. . . . 000002GO 

COMMON/CSF/ 0S(90) 00000270 

C 00000280 

LARGE DM 1(91812) ' " 00000290 

large DM2 (103466) 00000300 

C _ 00000310 

C* INITIAL ■ - ' - 00000320 ■ 

PI»3* 141593 00000330 

PI 4= 12*56637 _ 00000340 

RC* 5 7. 295 78 ' • ^ 00000350 

DO 10 I=l>5000 00000360 

10 OA(n_»_U*0 ■ ^ _____ _ 00000370 

00 12 i»3380*3'387 " ~ .. 

12 I)*1000000* 00000390 

C* READ>PRINT AND TEST INPUT DATA OOOOO4OO 

20 CALL ROATA 00(30041 0 

C* CALC GEOMETRY 00000420 

CALL GEOM _ _ 00000430 



c* 

call 

MATA 

c* 

CALL 

MATS 

c* 

CALL 

SOLU 

c* 

CALL 

PLCAL 

c* 

call 

SKINF 

c* 

GO TO 20 


END 



♦DECK CODIM 

subroutine 


CALC influence MATRIX A 

CALC BOUNDARY CONDITION MATRIX 8 

SOLVE linear simultaneous EQUATIONS (AX=B) 

CALC PRESSURE COEF. ♦ INTEGRATED LOADS AND 

CALC SKIN FRICTION 

GO TO NEXT CASE 

CODIM (XI.YI »NI*T»ANS*NA) 


c 

c**** A controlled deviation ITERPOLATiON METHOD 

c 

large XKl) *YI(1) »TCl) ♦ANSd> 

C 

data XK/0*5/ 


N*NI 

DO 910 IE=1»NA 
X»T(IE) 

100 IF(N-2) Il0*120t200 
110 Y a YKN) 

GO TO 900 

120 Y » ( YU 21-YI ( 1 ) )/ <XI (2 )-Xl( 1 > >* <X-XKl)) +Ym) 
GO TO 900 
200 J a I 

210 IF(XIIJ)-X)230. 220*250 
.■»20 Y aYUJ) 

GO TO 900 
230 J a J+1 

IFU-N)2l0*2l0*250 

250 IF( J-2U20»155*260 . . . . ... 

155 J * 3 
JJ » 1 
GO TO 285 

260 IF( J-N)280#265*270 
265 J = N-1 
JJ a 2 


00000440 
00000450 
00000460 
00000470 
00000480 
00000490 
INDUCED DRAG00000500 
00000510 
10000520 
00000530 
00000540 
00000550 
00000560 
00000570 
00000580 
00000590 
00000600 
00000610 
00000620 
00000630 
00000640 
00000650 
00000660 
00000670 
00000680 
00000690 
00000700 
00000710 
00000720 
00000730 
00000740 
00000750 
00000760 
00000770 
00000780 
00000790 

ooooosoo 
' 00000810 
00000820 
00000830 
000 00 840 
00000850 
00000860 
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GO TO 285 

270 Y« 1YI(N)-YI (N-i J )/<xnN)-Xl (N-1 ) )* { X-XU N“1 M + Yl ( N-1 ) 
GO TO 900 
280 = 3 

285 IF(N-3) 290*290.295 
290 J = 3 
295 K = J“1 
M = X-1 
L » J+1 
A1 = X-XKM) 

A2 = X-XKK) 

A3 = X-XI(J) 

AL » (X-XI(K) )/(XU J)-XKKn 
5 = AL*Yi(J) + (1.0-AL)*YI{K) ■■ . ' 

Cl» A3#A2/nXI(M)-XI (K» )*UI (M)-XI { J) ) ) 

C2=' Ai*A3/( ixi(x)-xnM) )*(xnx)-xnju> 

C3» A2*Al/( {Xi ( J)-XI{M) )»Uirj)-XI(Km 
PI * CI*YI(MH-C2*YI(K)4C3*YI<J» 

IF(N-3)305. 305*310 

305 P2 » PI 

GO TO 315 
310 A4 » x-xnu 

C4= AA#A3/nXHK)-XI(Jn*(XI(X»-XKU u 
C5= A2*AA/< (XI(J)-XI(K) >* IXI ( J)-XI (L) ) ) 

C6= A3*A2/< (XnL_)-xnxn*(XI(U-XI( JH I 
_ ^Y j +C5*Y 1 1 J )+C6*Y I ( L) 

315 GO TO (320*330*350) *JJ 
320 P2 » PI 

AL * (X-XI(in/(XI(2)-XI(l>) 

S * AL*YI(2)+ (1*0-AL)»YIU) 

Pl« S + XK*(P2-S) 

GO TO 350’ 

330 PI = P2 

AL = (X-XI (N-i) )/iXI(N)“XnN-l) ) 

S = AL»Yl(N)" + (l*0-AL)*Yl(N-"l) 

P2 = S+ XK*lPl-*3) 

^0 El = ABS(P1-S>_ 

• — £2-i a 8S fP2-3» 

IF(El+E2)A00*Ao0.4l0 
AOO Y = S 

GO To 900 

410 BT » (E1*AU/<E1«AL+(1*0'-AU*E2> 

Y » 0T»P2+(l.O-BT)»Pl 


00000870 

00000880 

00000890 

OG000900 

00000910 

00000920 

00000930 

00000940 

00000950 

00000960 

00000970 

00000980 

00000990 

00001000 

OOOOlOlO 

00001020 

00001030 

00001040 

00001050 

00001060 

00001070 

00001080 

00001090 

00001100 

00001110 

00001120 

00001130 

00001140 

00001150 

00001160 

00001170 

ooooiieo 

00001190 

00001200 

00001210 

>0001220 

00001230 

00001240 

00001250 

00001260 

00001270 

00001280 

00001290 



900 ANS( IE)=Y 
910 CONTINUE 
RETURN 
END 

♦DECK WIN6D 

SUBROUTINE WINGD ( NETA *ETA «XL *XTXL*CR ) 

C 

C* TABLE LOOKUP OF PLANAR PLANFORM FOR X LE AND CHORD 

C 

LARGE ETA< 1 > *XLU) •XTXlU) *CR< 1) 

C 

.00 AO I=1«N£TA 
L«1 

ET=ETA(n 

IF(ET.LT.O.O) ET»A8S(ET> 
lFiET*LE*CR(L) ) GO TO 38 
32 1F(ET-CR(L>) 37*38t34 
3A L»L+3 ■ 

IF(L-60) 32(A2tA2 

37 RATlO»(CR(L)-ET)/(CRlU“CRa-3n 

XL( n?CRa+l)-(CR(L+l)-CR(L- 2 ) )*RATIO 
XTXLI n=CR(L+2)-(CR{L+2)~CR{L-lM*RATIO-XU I J 
GO TO AO 

38 XLn>«CR(L+l) 

XTXL( I )»CR<L+2)-XL( I > 

AO continue 
RETURN 

A2 WRITE ( 6>lOUO) (ETAtiO *K=1«N£TA) 

call EXIT 
STOP 

lUOO FORMAT (23H1 *♦ WINGD * ETA VALUES/ < 1H010FIO*3 ) I 
END 

♦DECK PFUNC 

SUBROUTINE PFUNC U W »NEV *EV »W*S ) 

C 

C* CALC. MATRIX S OF P FUNCTION 

C _ 

COMMON/ DAT/ DA ( 5000 » 

C 

DIMENSION Wm 
C 

LARGE EV(l>.S<51*n 

C 


00001300 
00001310 
00001320 
00001330 
0000 13A0 
00001350 
00001360 
00001370 
00001380 
00001390 
OOOOIAOO 
OOOOlAlO 
00001420 
00001430 
0000 14A0 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
00001520 
10001530 
000015A0 
00001550 
00001560 
00001570 
00001560 
00001590 
00001600 
0000 1610 
00001620 
00001630 
00001640 
00001650 
00001660 
00001670 
00001680 
00001690 
00001700 
00001710 
00001720 





COMMON/CRG/ P I *P 14 »RC tBETA 

00001730 


c 


00001740 



IC«WllWM-.5 

00001750 



iNOsDAMCJ 

00001760 



IFMnO) 20«30t20 

00001770 


20 

EL*DAtIC+2) 

00001780 



ER=DAUC+3) 

00001790 


s' . ' 

GO TO 20i 

00001800 


C 

P-FUNCTION TYPE LOAD SHAPE 

00001810 


30 

ETASO =DA(IC+1) 

00001820 



RL=DA(1C+2) 

00001830 



RR»0AMC+3) 

J0001840 



ETAS=ETASO 

00001850 


'33' 

‘ IF (ETASO-RLV 40,41*41 ' 

00001660 



IF( 1,0>RR>-ETAS0) 42,56,56 

00001870 


^0 

A10'«1#0-ETASO/RL 

00001680 



biosi*o/Rl ^ 

00001890 



C 10«- ( RL+RR ) » (1 .0-ET ASO ) / ( RR*RL ) 

00001900 



E10=( IRL+RR)/IRR#RL)-1*U/RU*( I.O-IETASO+RR) ) 

ogooi 9 io 



010»0*0 ... 

00001920 



GO TO 43 

00001930 


56 

D10a(l,0-(ETASU-RLn/RL 

00001940 

M 


ClO«-U,0/RR+l,0/RL)*{l«0«ETAS0) 

00001950 



E10a( 1,0-lETASO-fRR) )/RR 

00001960 



A10»0,0 

00001970 



' B io»o“,o ' 

00001980 



GO To 43 

00001990 


^2 

010=1 1,0**(ETAS0~RL) ) /RL 

00002000 



C10=- ( 1 .0/ ( 1,0-eTASO ) •0/RL) » t 1*0-ETAS0 J 

00002010 



A10=0.0 

00002020 



810=0.0 

00002030 



ei6»o*o ■ ■ ■ 

00002040* 


43 

DO 200 IE»1*NEV 

00002050 



ETA=EV(IE> 

00002060 



IFlETA.Ne.O.OJ'GGi TO 27' " 

00002070 


10 

eta=eta-o.oooouoi 

00002080 


27 

D»SQRT(1.0-ETA**2J 

00002090 



iFID.EQ.l.) b=. 9999999 ' “ 

■ ■ ~00002i00"“ 


28 

ETAS = ETASO 

00002110 



IF(ETAS0“RU 44*45»45 

00002120 


44 

ETAS»0.0 

00002130 


>'>■ ■ 

C = SQRT(1.0-ETAS»#2) 

00002140 



E =(ETA«;C ->ETAS»0 )/(ETA»C +ETAS*0 ) 

00002150 







p' 

o 


G =(1,0+ETA*ETAS+D »C t/ (I^O^ETA^ETA^-D *C ) 00002160 

IF(E) 9.10. U 00Q02170 

9 E = ABS(E ) 00002180 

11 IFtG) 12.10.14 00002190 

12 G » A8S(G ) 00002200 

14 EmTPH= ( ( ETAS-ETA)*AlOG( E)-ETAS*AL0G(GH-2*iH ACOSt ETAii n*0) /PI 00002210 

45 L=0 00002220 

49 00002230 

5 KalC + l 00002240 


C » SQRTI1.0-ETAS**2I 

H = SORT! ABSU 1,0-ETA*ETAS-D 

0 * SQRTt ABSt (1.0+ETA#ETAS-D 

IF(H) 16.10.16 
16 IF(0) 18.10.18 

18 PS =-(( (ETAS-ETA)#*2)» ALOGIH 
1 '' -»-(4.*ETAS»( ACOSIETAS) 

39 IFIETASO-RD 46.47.47 

46 IFtU 48.48.47 
48 P3ZER0 =PS 

ETAS»ETAS0 
L»L+1 
GO TO 49 

47 IF(K-2) 2*3*4 

2 PSO »PS 
IFIETASO-RU 50.51*51 

51 IF<l.O-RR-ETASO) 52*50.50 
50 etas»etaso+rr 

GO TO 5 

52 ETAS»ETAS0-RL 
GO TO 5 

3 IFtETASO-RL) 53.55.55 

55 IFCUO-RR-ETASOI 57.58.58 
58 PSRR »PS 
ETAS»ETAS0-RL 
60 TO 5 

53 PSRR »PS 

PSRL »0»0 _ _ _ _ _ 

GO TO 59 
57 PSRL «PS 
PSRR »0*0 
EMTPH »0.0 
PSZERO •0.0 
GO TO 59 


00002250 

*C )/(1.0-ETA*ETAS4-0 *C m00002260 

♦C )/(l*0+ETA*ETAS+0 *C ))) 00002270 

00002280 

00002290 

)+(lETAS+ETA)*»2l* ALOGCO » 00002300 

)-2.*C)4D)/<6.28318*a .-ETAS) ) 00002310 

00002320 

00002330 

00002340 

00002350 

00002360 

00002370 

00002380 

00002390 

00002400 

00002410 

00002420 

00002430 

00002440 

00002450 

00002460 

00002470 

00002480 

00002490 

00002500 

00002510 

00002520 

00002530 

00002540 

00002550 

00002560 

00002570 

00002580 



PSRU =PS 00002590 

EMTPH »0*0 00002600 

P S2E RO » 0 • 0 000026 10 

59 PS =A10*EMTPH +B10*PSZER0 +C10*PSO +010*PSRL +E10*PSRR 00002620 

200 SME»IM):=PS 00002630 

<50 TO 300 000026^0 

C FLAP OR KRUEGER TYPE LOAD SHAPE 00002630 

201 PHil» ACOS(EL) 00002660 

PHIO* ACOS(ER) 00002670 

DO 250 IE«1*NEV 00002660 

ETAaEVUei 00002690 

PHI« ACOS<ETA> 00002700 

Pl*ABS(PHi-PHII »/2«0 00002710 

P2=TPHI4-PHM )/2*0 ~ 00002720 

IF(PI«NE.0,0) GO TO 202 00002730 

Cl»OtO 00002740 

GO TO 204 ~ ' 00002750 

202 C1»(EL-£TA|«AL0G(SIN(P1 >/SlN(P2) ) 00002760 

204 C2«{EL+ETA)*ALOG(COS(P2)/COS(Pl) ) 00002770 

P1=ABS{PHI-PHI0) /2.0 ' 00002780 

P2»(PHI+PHIO)/2*0 00002790 

1F(P1«NE«0*0) go to 206 00002800 

C3»0*0 ' 00002810 

GO TO 208 00002820 

206 C3»<ER-ETA)*AL0G(SIN<P1)/SIN(P2) J 00002830 

208 C4*iER+ETAl*AL0G(C0S(P2)/C0S(P'i)) ' “ 00002840 

210 S(IEfIW)=(Cl+C2-C3-C4+2.*SlN(PHn*<PHII-PHlO))>PI 10002850 

250 CONTINUE 00002860 

300 RETURN 00002870 

END 00002880 

♦DECK MSOLX 00002890 

SUBROUTINE MSOLX (NKT»NQT#NCB *'AAtB* ID i 00002900 

C 00002910 

C* HOUSEHOLDER METHOD FOR SOLVING SET OF LINEAR 00002920 

C* ~ SIMULTANEOUS EQUATIONS ' - 00002930 

C 00002940 

LARGE B( ID*1) *AA( 10*1) 00002950 

C '■ ^ ^ ' ■00002960' 

LARGE 0UM(91812) *A(102»103) #AR<2U4» »IL(102I 00002970 

C 00002980 

NKTP-NICT+NCB 00002990 

DO 10 J-l.NKT 00003000 

DO lO.K=JiNK,TP_ 00003010 



lU AiJ»K) * 0,0 
00 60 K=1 *NQT 
20 DO 22 1*1. NKT 
22 ARm*AAUC.n 
DO 24 J*1.NCB 
NKTJ*NKT+J 
24 AR(NKTj)«B(KtJl 

30 DO 50 1=1. NKT 

R * SORTtAd.n ** 2 + AR(I) **2) 

IF(R ,EQ. 0,0) GO TO 5j 

C * Ad.n / R 

S * ARd) / R 

DO 40 J*I.NiaP 

T2 * C * Ad.J) * a * AR( J) 

ARrJJ » -s * Ad,j» + C ♦ AR(J» 

40 Ad.J) » T2 
50 CONTINUE 
60 CONTINUE 
d » 1 

DO 80 1=1. NKT 

IF(A(I*n ,LE, 0,0000001) GO TO 70 
iLd) * II 
II » II ♦ I 
60 TO 80 
70 ILd) • 0 
60 CONTINUE 

DO 250 J*1.NCB 
NKTJ»NKT+J 
DO 90 1*1. NKT 
90 ARd)*0,0 
tI»NKT 

no 210 1*1. NKt 

IFC iLdl) ,LE, 0) 60 TO 210 

Ji » ILdl) 

IFdl - NKT) 170. 200* 220 
170 IK * II 1 

DO 180 K*IK.NKT 

180 ARdl) » ARdI) - A(JI.K) ♦ AR(K) 
200 ARdI )*( ARdl)+AUI.NKTJ) J/A( JI .II > 
210 11 » II - 1 

220 continue 

DO 240 1=1. NKT 


00003020 

00003030 

00003040 

00003050 

00003060 

00003070 

00003080 

00003090 

00003100 

00003110 

00003120 

00003130 

00003140 

00003150 

10003160 

00003170 

00003180 

00003190 

00003200 

00003210 

00003220 

00003230 

00003240 

00003250 

00003260 

00003270 

00003280 

00003290 

00003300 

00003310 

00003320 

00003330 

00003340 

00003350 

00003360 

00003370 

00003380 

00003390 

00003400 

00003410 

00003420 

00003430 

00003440 



24U AA( 1* J)-AR( 
250 CONTINUE 
RETURN 
END 

#DECK ROATA 

SUBROUTINE 

C 

C* 

C 


■P- 

LO 


c 

c* 

c* 


I » 

RDATA 

READ. PRINT AND TEST 


INPUT DATA 


COMMON/ DAT/ 
DIMENSION 

equivalence 

2*(DA(1206) • 
3*CDA(1272) « 
4»(DA< 1276) * 
5*(DA( 1280) f 
6.CDA(2507) ♦ 
7* I DA) 3390 )♦ 
8.(DAU706) * 


DA(5000) 

WJS(l) 

(DA( 
WNVSI ) .IDA 
WNPC) .(0A( 
FNDV) .(DA( 
WNU) .(DA( 
PNVC) .(DA( 
XNB) *(DA( 
BNVY) .(DA( 


4) .XMACH) 

( 1690) .WJS) 
1273) .WNPS) 
1277) .WNJC) 
1281) >WNW) 
2508) .PNVS) 
3394) »XNP1) 
4707) »BNDV) 


.(DA(12> .PRII ) .(DA 
.(DA( 1270) .WNVC) .(DA 
»(DA( 1274) .FNVX) .(DA 
*IDA(1278).WNJS) .(DA 
.<DA(1282).FNF) .(DA 
.(0A(2509) *PNU) .(DA 
»(0A(3395) *XNP2) » ( DA 
•tDA(4708) *BNJX) .(DA 


COMMON/CFG/ I OB * I DF . I DW . I DP . I ON » NQB .NUF » NO W » NQP . NON 
1 .NKB*NKF.NKrt.NXP»NKN 

COMMON/CRO/ PI.PI4*RC*BETA.SIN0P*C0S0P 
COMMON/CPB/ NVXB .NVXMB #NVY6 .NOVB *NVBB .NV8PB tNEB *NJXB 
COMMON/CPF/ NVXF.NVXMF*NVYF .NOVF.NVBF.NVBPF.NFF.NJXF 
DWl (9 ) .nu.nw.nvc*nvs.njc»njs.nvso.nvsi 

0P1<7) *NVCPtNVSp.NJCP»NUP 
NB*NP1.NP2.N0BP .NT 


COMMON/ CPW/ 
COMMON/CPP/ 
COMMON/ CPN/ 


READ INPUT DATA 
CALL DECRO (DA(D) 

PRINT INPUT DAtA 

J»1 

WRITE (6tl0) 

10 FORMAT (59H1 

lA **//lH I6.4F19.6) 

DO 20_I*5.A996.5 

IFtDATr UNEVoVo) 

IF(OA( I-fl )«NE.0*0) 

IF(OA( I42).NE«0.0) 

IF(DA( I<*'3)*NE.0*0) 

IF(DA( I+4I.NE.0.0) 

GO TO 20 


J. (DA( I ) .I>1.4) 

SUBSONIC INTERFERENCE PRESSURE PROGRAM * 


"GO' 

GO 

GO 

GO 

GO 


TO 

TO 

TO 

TO 

TO 


12 

12 

12 

12 

12 


00003450 
00003460 
70003470 
00003480 
00003490 
00003500 
00003510 
00003520 
00003530 
00003540 
00003550 
( 1205) .WNV50)00003560 
(127D.WNVS) 00003570 
(1275)»FNVY) 00003580 
(1279). FNJX) 00003590 
(2492). PDA) 00003600 
(251D.PNJC) 00003610 
(4705)»BNVX) 00003620 
(4709). 8NF) 00003630 
00003640 
00003650 
00003660 
00003670 
00003680 
00003690 
00003700 
00003710 
00003720 
00003730 
00003740 
00003750 
00003760 
00003770 
00003780 
INPUT 0AT00003790 
00003800 
00003810 
"" 00003820 
00003830 
00003840 
00003850 
J0003860 
00003070 



iinr 


12 WRITE <6*14) I*DA< I)*DA< I+l) »DA<l+2) »DAtI+3) »0A< 1+4) 
14 FORMAT ilH I6*5F1V,6) 

20 CONTINUE 

C* INITIAL 

NQB»0 
N0F=0 
NQWsO 
NOPaO 
NQN*0 
NKB^O 
NKF=0 
NKW»0 
NKP*0 
NKN»0 

ID8sOA(4000) 

IOr=DA(4001) 

IDW»DA(4002 ) 

IDf»»DA(4003) 

IDN«DA(4004) 

rewind 12 

c# initial fuselage 

1F(IDB«EQ*0) 60 TO 40 

REWIND 19 

REWIND 23 

NVXB»BNVX 

NVXM8=NVXB-1 

NVYB»BNVY 

ndvb»bnov 

NVBB»NDVB*NVYB 

NVBPB-NVBB+1 

nfb*bnf 

njxb=bnjx 

nkb*nvyb*nfb 

NQB=NJXB«NVYB 
NPT«NVXMB*NVBPB 
IF(NPT*LE.4000) go to 40 
WRITE (6*32) 

32 FORMAT <31H0 *'* fuselage * TOO MANY POINTS) 

60 TO 200 

C» INITIAL FANPOD 

40 IFn0F*E0*0) GO TO 50 
REWIND 20 
REWIND 24 


00003B80 
00003890 
00003900 
00003910 
00003920 
00003930 
00003940 
00003950 
. 00003960 
00003970 
00003980 
00003990 
00004000 
00004010 
00004020 
00004030 
00004040 
00004050 
00004060 
00004070 
OOOOA080 
00004090 
00004100 
00004110 
OOOOA120 
00004130 
00004140 
0000^150 
00004160 
J0004170 
00004180 
00004190 
00004200 
00004210 
00004220 
00004230 
00004240 
00004250 
00004260 
00004270 
00004280 
00004290 
00004300 



^t,T 


NVXF^FNVX 

NVXMF»NVX^i_ ^jvyp r.ftjvy 

NDVF«FNDV 

NVBF»NDVF«NVYF 

nvbpf=nvbf+i 

NFF»FNF 

NJXF=FNJX 

NKF»NVYF»NFF 

NQF»NJXF»NVYF 

NPT»NVXMF*NV8PF 

tF(NPT.LE•^^000) GO TO 50 

WRITE (6*42) 

42 FORMAT I 29HO ♦♦ FANPOD * TOO MANY POINTS! 
GO TO 200 

c* Initial wing 

50 IFriDW.EQ*0> 60 TO 60 

REWIND 21 

NVC*WNVC 

NVS0=WNVS0 

NVSI-WNVSI 

NVS-NVSO 

IF(10F«NE*0) NVS»NVSO+NVSl 
IF(NVS*EO*0) NVS*WNVS 
NJC=WNJC 
NJS«WNJS 

NU*>WNU 

NWsWNW 

IFINWtNE.O) GO TO 54 
NW*(NVS+1 )/2 
NJS«NW 
WJS(1)«1.0 
DO 52 I*2*NJS 
52 WJSU >»WJS( I-D + l.O 
54 NKW>NU«NW 

nqw«njc»nJs 

c* initial pylon 

60 IFCIDP.EQ.O) 60 To 70 

REWIND 22 

NVCP=PNVC 

NVSP«PNVS 

NJCP-PNJC 

NUP»PNU 

NKP*NUP»NVSP 


00004310 

00004320^ 

00004330 

00004340 

00004350 

00004360 

00004370 

00004380 

00004390 

00004400 

00004410 

00004420 

00004430 

00004440 

00004450 

00004460 

00004470 

10004480 

00004490 

00004500 

00004510 

00004520 

00004530 

00004540 

00004550 

00004560 

00004570 

00004560 

00004590 

00004600 

00004610 

00004620 

00004630 

00004640 

00004650 

00004660 

00004670 

00004680 

00004690 

00004700 

00004710 

00004720 

00004730 


9-3 



nqp=njcp»nvsp 

c* Initial nacelle 

70 if(Ion«eo*o) Go to loo 

REWIND 9 
REWIND 10 
rewind II 

rewind 16 
NB=XN8 
NP1=XNP1 
NT*NP1-1 

IF(NB*E0.1) GO TO 71 

NP2=XNP2 

NT*NT-*-NP2-l 

71 NKN»NT 
NQN*NT 

IF(NT.LE*140> go to 100 

write (6*72) 

72 FORMAT C 30H0 ** NACELLE * TOO MANY POINTS) 

GO TO 200 

C* TEST TOTAL POINTS 

100 NICT»NIC8+NKF+NXW+NKP 

IF(NKT#LE.450) go TO 110 
'liRITE (6*102) 

102 FORMAT (30HO ** RDATA ♦ TOO MANY UNKNOWNS) 

GO TO 200 

110 NOBP»NQB+NQF+NQW+NQP 

IF(N08P«LE*860) GO TO 120 
WRITE (6*112) 

112 FORMAT ( 30HO *» RDATA TOO MANY EQUATIONS) 

GO TO 200 

120 IF(XMACH*LTel« } GO TO 210 
WRITE (6*130) 

130 FORMAT (33H0 ** MACH GREATER OR EQUAL TO 1*0) 

200 CALL EXIT 

210 BETA=S0RT(1#-XMACH*«2) 

C initial pylon DIHEDRAL ANGLE 

SINDP'O.O 
C0SDP»1*() 

IF( IDP.EO.O) GO TO 220 

PDARaPDA/RC 

SlNDpaSlN(POAR) 

COSDPaCOS(PDAR) 

220 RETURN 


0000A7A0 

0000^750 

0000^760 

00004770 

00004780 

10004790 

00004600 

0U00A810 

00004820 

00004830 

00004840 

00004850 

00004860 

00004870 

00004880 

00004890 

00004900 

00004910 

00004920 

00004930 

00004940 

00004950 

00004960 

00004970 

00004980 

00004990 

00005000 

00005010 

00005020 

00005030 

00005040 

00005050 

00005060 

00005070 

00005060 

00005090 

00005100 

00005110 

00005120 

00005130 

00005140 

00005150 

00005160 





ENO 00005170 

♦DECK DECRD “ 00005180 

subroutine OECRO (DATAJ 00005190 

C 00005200 

C THE FUNCTION OF THIS ROUTINE IS TO READ SINGLE-PRECISION REAL NUMBERS 00005210 

C FROM CARO COLUMNS 13-72 WITH A 5E12.0 FORMAT. THE DATA IS STORED INTO 00005220 
C THE ADDRESS OF THE FIRST ARGUMENT MINUS ONE PLUS THE CONTENTS OF CARD 00005230 
C COLUMNS 2-12 AND THE FOLLOWING FOUR LOCATIONS. IF ANY DATA ITEM 000052AO 

C CONTAINS 12 BLANKS* NO DATA IS STORED. CAROS ARE READ AND DATA IS 00005250 

C STORED UPTO AND INCLUDING A CARD WITH A MINUS IN COLUMN ONE. 00005260 

C 00005270 

r 00005280 


DIMENSION 0ATA(U»ADATAt5)*IDATAll7) .IIDATA(8) 00005290 

DATA iBLANK/lOH / OOOO 53 OO 

READ A CARO AND TEST I ADD. ♦♦♦♦♦****♦♦********♦*♦**♦♦**♦***♦*♦*** 00005310 

15 REA0(5*16)IIDATA 00005320 

16 FORMATIBAIO) 00005330 

IFI€0F(5>) 60*19*60 000053^0 

19 DECODE! 72*17*IIDATA) lAOOtAOATA 00005350 

17 FORMAT! I 12*5012.01 00005360 

OECOOE(80*18*I IDATA) IDATA 00005370 

18 FORMAT U2X*17AA I 00005380 

J-IAOD 00005390 

IFCIAOO) 22*40*24 00005400 


C 


22 J»-J 

TEST FOR BLANK FIELDS AND STORE NON-BLANK FIELDS. 


00005410 

»*♦♦♦***»****#* 00005420 


24 00 30 1-1*5 
L-3*I 

K»L-2 , 

DO 26 M»K*L 

IF( IDATA I MI- IBLANK >28*26*28 
26 CONTINUE 
GO TO 30 

28 DATA! J)»ADATA( n 

30 ' '■ - ' 

IF( IA0D)100»40«15 

C error print of BAD CARD IMAGE. ♦♦**♦********♦**♦***♦♦♦♦♦***♦***♦* 

40 WRITE(6*50MAb6»IDATA' ‘ ■ ' ' ' ' 

50 FORMAT 117H0DECR0 ER. CARO* ( * 1 1 12 * 17A4 *2H) . ) 

60 CALL EXIT 
100 RETURN 
END 

♦DECK GEOM . , . 


00005430 

00005440 

00005450 

00005460 

00005470 

00005480 

>0005490 

00005500 

00005510 

00005520 

00005530 

00005540 

00005550 

00005560 

00005570 

00005580 

00005590 



r> n n 


H 

■P* 

03 


subroutine geom 

CONTROL PROGRAM FOR GEOMETRY ROUTINES 

COMMON/OAT/ OAtSOOOl 
DIMENSION WJCU»*WjS(n 

equivalence <DA< 1660) *WJC> * 1 DA < 1690 ) «WJS J 

1*(0A<87) •FOX) *<0A( 1A60) *FVX) » (DA 1 2A90) *ATP ) 

2»<0A(4015) *BOX) * < DA( 4735 ) »BVX) 

C 

COMMON/CFG/ IDB*IDFt IDW* IDP • IDN 
COMMON/CPB/ NVXB*NVXMB*NVYB»NDVB*NVBB*NVBPB»NB 
COMMON/CPF/ NVXF*NVXMF»NVYF*NDVF*NVBF»NVBPF»NF 
COMMON/CPW/ own 13 ) *NJC *NJS 
C 

large BOUOOOO) »DB1( 13000) *XBB( 4000) •YBB(4000) 

» ♦OF1I11700)*X8FC4000) *YBF(4000) .ZBF(4QOo) 

1 *EV(52) tXLV(52) *XTLV<52) 

2 *DM1U550) *EP(30) *XTLP(30) »X0CP(30) 

3 #DM2(10850)*CFJ(50) 

C 

c* start 

IF(IDB»N£«1) GO to 10 
CALL BXYZ 
CALL BOPTS 

IF(NB.GT«0) CALL BCLS 
C 

10 1F(IDF«NE»1) GO to 20 
CALL FXYZ 
call FOPTS 

IF(NF*6T*0> CALL FCLS 
C 

20 IF(IOW«NE»l) GO TO 30 
CALL WXYZ 

call RTWI 
call MATCS 
00 22 J»l*NJS^ 

IE*WJS( j) " ' 

EPi J)*EVIIE) 

22 XTLPt J)*XTLV( IE) 

DO 24 J*1*NJC 
IJ*WJC( J) 

24 XOCPt J)aCFJI IJ+1 ) 


00005600 
00005610 
00005620 
00005630 
00005640 
00005650 
00005660 
000056TO 
00005680 
00005690 
00005700 
00005710 
00005720 
00005730 
00005740 
♦ZB8{4000) 00005750 
00005760 
00005770 
00005780 
00005790 
10005800 
0000&810 
00005820 
00005830 
00005840 
00005850 
00005860 
00005870 
00005880 
00005890 
00005900 

00005910 

00005920 

00005930 

00005940 

00005950 

00005960 

00005970 

00005980 

00005990 

00006000 

00006010 

00006020 



u u 


IF(DA{2000)*NE*0,0) CALL WTZCS 00006030 

C 00006040 

30 IFUOP.ME*!) GO TO 40 00006050 

IF(ATP*GT*1.0J GO TO 34 00006060 

CALL PXYZ (NVXBiNDVB*NVBPB*80X*BVX*XB8*YBB»Z8B) 00006070 

GO TO 36 00006080 

34 CALL PXYZ ( NVXF .NDVF »NVBPF*FOX »FVX»XBF .YBF *ZBF ) 00006q90 

36 IF(0A(300O>.NE.0.0) CALLPTZCS 00006100 

C J0006H0 

40 IF(1DN«NE*1) GO TO 50 00006120 

call NXYZ 00006130 

C 00006140 

50 RETURN 00006150 

END - - 00006160 

♦DECK BXYZ 00006170 

subroutine BXYZ 00006180 

C ‘ 00006190 

C* CALC* COORDINATE OF BODY VORTICES (XB*YB*ZB) 00006200 

C _ 00006210 

COMMON/DAt/ DAI 5000 ) 00006220 

C 00006230 

DIMENSION XSd ) *TYS( 1 ) »RZSIl) *FVXU ) »FVT U ) *FJX( 1 ) *YYMU ) 00006240 

1 ■ *XMC(l)*iZM<l)*FZCa) 00006250 

EQUIVALENCE (DAU005) *FCD) #<OA(4007) »FMFI ) * i DAU008 ) *FCPI) 00006260 

1 * LOA(4009) *FLOn *tDA(40l0) »FTHI) • t 0 A< 4015 ) *FOX ) * IDA (40 16 ) »FOY) 00006270 

2»VoA( 4017) *FOZ> i< 0'A(4020)"9FNXS) ♦ (DA ( 4021 ) *XS ) '* ( DA ( 4 O 5 O ) *FNTY ) 00006280 

3*(DA(4051) *TYS) * ( DA( 4090) *R2S ) * < DA(4565 ) »FNXM ) * ( DA ( 4566 ) »XMC ) 00006?90 

4*(DA(4600)*YYM) » ( DA< 4635 ) *ZZM) • (DA( 4670 ) *FZC ) » ( OA ( 4705 ) *FNVX ) OOOO 63 OO 
5»(DA(4707) *FNDV) *(DA(4735) *FVX) * (0A< 4885 ) *FVT ) » ( DA ( 4905 > *F JX ) OOOO 63 IO 

C 00006320 

COMMON/CRG/ PI *PI4 *RC»B£Ta 00006330 

COMMON/CPB/ NVX*NVXM»NVY,ndV»NV0*NVBP*NF*NJX*IFBE»SINA*COSA*FAREA 00006340 

♦ *SA 00006350 

C 00006360 

LARGE' B0U(3000) *DMl( 11700) iAXYlBSO) *AYZ(650) »Xb(4000) 00006370 

♦ #YB(4000) *ZB(4000) *FAN( 23700) *WIN< 23430 ) *PYL ( 6061 ) *CEU3700) 00006380 

l9STH(400) *CTHU00) iTH(400) 00006390 

2*STCri50r“'VcTC( 150r '"»VXn 150T“"*VX2'{ *ZC1 ( 150)' " iZC2( 150) OOOO 64 OO 

3*RS(30) *STS(30) .ZM<150) »YM(150) *ZC(150) OOOO 64 IO 

4*YMAX(150) »FVXL(150) *XMCL(34) *YMCL(34) »ZZML(34) *FZCL(34) 00006420 

00006430 

INITIAL 00006440 

NXS=FNXS 00006450 



150 


NTr=FNTY 

NXM*FNXM 

FNVXM=FNVX~1. 

FNVB=NVB 

C* CALC longitudinal PARAMETER X 

FVX( 1)«0«0 
FVX(NVX)*FCD 
IFIFLOn 30*10*50 
C EVEN delta phi 

10 DPHI*PI/(FNVXM”1*) 

PHX«0PHI/2* 

FC02«FC0/2* 

DO 20 I»2*NVXM 

FVX( n=FCD2-FCD2*COG<PHX) 

20 PHX*PHX+DPHI 
GO to 50 

C EVEN DELTA X 

30 DX*FC0/IFNVXM-1*) 

FVX(2J=DX/2. 

DO 40 I«3*NVXM 
40 FVX< n«FVX( I-D+DX 
C* CALC lateral PARAMETERS 

50 IF(FTHI) 120*120*60 
C INPUT THETA LIST 

60 IF(FN0V*GT.1*I 60 TO 80 
DO 70 I*l*NVY 
70 THU)«FVTUI 
THINVY-H J*180* 

GO TO 140 
80 IC*0 

FVT(NVY+1 )®180* 

00 loo I=1*NVY 

0TH*{FVT(I + 1I-FVT( IM/FNDV 

IC«IC+1 

TH(IC>=FVT(II 

DO loo J=2*N0 v 

IC«IC+1 

100 TH( ICJ = TH( IC-D4DTH 
TH( IC+l)el80. 

GO TO 140 

C EVEN DELTA THETA 

120 DTM»180«/FNVB 
THa)»0. 


00006460 

00006470 

00006480 

00006490 

00006500 

00006510 

00006520 

00006530 

00006540 

00006550 

00006560 

00006570 

00006580 

00006590 

00006600 

00006610 

00006620 

00006630 

00006640 

00006630 

00006660 

00006670 

00006680 

00006690 

00006700 

00006710 

00006720 

00006730 

00006740 

00006750 

00006760 

00006770 

00006780 

00006790 

00006800 

J0006810 

00006820 

00006830 

00006840 

00006850 

00006860 

00006870 

00006680 



DO X30 Ix2fNVBP 
130 THi I ) »TH( I-D+DTH 
C SIN-COS THETA 

140 OQ 150 1«1»NVBP 
THR»TH(U/RC 
STHtI V«S1 N(ThR) 

150 CTH< H»C0S(THR) 

C* SHIFT ARRAYS TO LCM FOR CODIM 

DO 151 I»l*NVX 

151 FVXLl I»=FVX( I» 

DO 152 I*1#NXM 
XMCL(U»XMCln 
YMCL<I)*YYMU) 

Z2MLm»iZMUr 

152 F2GL( n«FZCm 

C» " CALC CAMBER AND MUT I PLICATION FACTORS 

IFtNXM*NE*OI GO TO 154 
00 153 I»1*NVX 
YM(I)=1. 

ZMU »-l . ' 

153 2C( 1 1»0*0 
GO TO 192 

154 call Codim (XMCL*YMCL*NXM*FVXL>YMfNVX) 

IFIABSIFMFI I*EQ*ltO) GO TO 180 

160 DO 170 IsltNVX 
170 2Mm»YM(n ' 

60 TO 190 

180 CALL COOIM ( XMCL *ZiML f NXM »FVXL »ZM »NVX ) 

190 CALL COOIM (XMCL*FZCL»NXM»FVXl»ZC»NVX) 

192 IF(FCPI) 220*220*200 
C PERPENDICULAR TO X-AXiS 

200 DO 210 I«2*NVX ■ " 

sTcm=o*o 
210 CTCm»l* 

GO TO 250 ■ 

c perpendicular To camber line 

220 DX-FCD/1000. 

DXH«*6x72,'~’ 

do 230 I=2*NVX 
VXl(I-l)»FVX(n+OXH 
230 VX2<I-U*FVX(IJ-0XH 

call COOIM (XMCL*FZCL*NXM*VX1*ZC1*NVXM) 

CALL COOIM IXMCL*FZcL*NXM*VX2*ZC2 »NVXM) 


00006890 

00006900 

00006910 

00006920 

00006930 

00006940 

00006950 

00006960 

00006970 

00006980 

00006990 

00007000 

00007010 

00007020 

00007030 

00007040 

00007050 

00007060 

00007070 

00007080 

00007090 

OOOOTIOO 

00007110 

>0007120 

00007130 

00007140 

00007150 

00007160 

00007170 

00007180 

00007190 

00007200 

00007210 

00007220 

00007230 

00007240 

00007250 

00007260 

00007270 

00007260 

00007290 

00007800 

00007310 



n n 


0X2=0X*DX 
DO 240 I»2«NVX 
0Z»2C2(I-1 )-ZCl 1 1-1 ) 

OH=SQRT(DX2+OZ**2> 

STC< n=02/DH 
240 CTC( I )«DX/DH 

* TABLE LOOKUP FOR RADIUS AT EACH POINT 

INPUT <R VS THETAI VS X 
250 CALL CODMT (NXS*NTY*NV8»TYS*RZS*TH*XB) 

L»1 

DO 350 I>2*NVX 
DO 310 J»2*NXS 
IF(FVX( n~XS( J> ) 320*320*310 
310 continue 
RAT» 0«0 
GO To 330 

320 RAT=(XS( J)-FVX( I M / ( XS( J ) -XSU-l ) ) 

330 K»J 

DO 340 IT*liNVB 
L»L+1 

2B(L)*XBllO-RAT*(XB(K)-XB(K“l) ) 

340 K*K+NXS 
L-L+1 
L1»L-NVB 
ZB(U»ZB(L1) 

350 CONTINUE 

C* CALC XB*YB*Z8 AND INTEGRATED LOAD PARAMETERS 

XBa)«0«0 
YB<1)«0.0 
ZBI 1)*0»0 
YMAX(l)*0*0 
FAREA“0*0 
L*1 

DO 390 IX»2*NVX 
C1«Zm( IX1*CTCI IX) 

IF<FMFI.LT*0.0) C1»YM( IX)«CTC( IX) 

YMAXUX)«0*0 
DO 360 IY=1*NVBP 
L»L + l 

C2=ZB<U*CTH( lY) 

IF(FMFUGE.0,0) GO TO 352 
YB(U«ZC< IX)+C1*Z0(U*STH( IV) 

ZB<L)»C2*ZM( IX) 


00007320 

00007330 

00007340 

00007350 

00007360 

00007370 

00007380 

00007390 

00007400 

00007410 

00007420 

10007430 

00007440 

00007450 

00007460 

00007470 

00007480 

00007490 

00007500 

00007510 

00007520 

00007530 

00007540 

00007550 

00007560 

00007570 

00007580 

00007590 

00007600 

00007610 

00007620 

00007630 

00007640 

00007650 

00007660 

00007670 

00007680 

00007690 

00007700 

00007710 

00007720 

00007730 

00007740 



H-* 

U> 


GO TO 35 A 

352 YB<L)*YM( IX)»ZB(L)*STH( IY» 

ZB(L)=ZCUX»+C 1 »C 2 
354 XB(L>»FVX( rX)-C 2 »STCUX ) 

356 IF(YB(U*LE«YMAXnX) ) GO TO 360 
YMAXi IX)=YB(L) 

360 continue 

FAREA»{YmAX( IX J+YmAXI IX-in#<FVXt IX)-FVX( IX-in+FAREA 
390 continue 
IFBE *0 

IFIYMAX(NVX),GT, 0 , 001 ) IFBE =1 
C* SETUP FOR COEFFICIENTS 

_ AXY AND AYZ= 2 »PR 0 JECTED AREA 

~ ■'ij«i"'*“ " ■ ■ ' ■ ' 

JX*FJX( 1 ) 

NC4fl 

5AsO*0 

C 

DO 460 IX« 1 *NVXm' 

IFUX*LE*JXJ go to 410 
IFIIJ.GE.NJX) 60 TO 4 lO 
IJ*IJ +1 
JX«FJX( 1 J) 

C 

410 00 450 IY» 1 *NVY 

IF! IX,NE*JX> go to 420 
NC*NC+l 
AXY<NCJ" 0*0 
AYZ(NC)» 0*0 
C 

420 DO 450 I» 1 *NDV 

IF< IX*GT* 1 ) GO TO 430 
AX=YB(M 2 I*X 8 (M 2 + 1 »-YB(M 2 +l ) #XB (M 2 ) 
AY»Y 8 CM 2 l*Z 8 (M 2 +H-YB(M 2 -«-l )#ZB(M 2 > 
AZ“XB(M 2 )*ZB(M 2 + 1 )-XB(M 2 + 1 >*ZB(M 2 ) 

GO TO 440 


430 Ml»M2-NVBP 

X4=XB(M2+1)-XB(MH 
X3*XB(Ml + n~XB(M21 
Y4»YB(M2+1)-YB(MIJ 
Y3«YB(Ml+l)“YB(M2) 


00007750 
00007760 
00007770 
00007780 
00007790 
00007800 
00007810 
00007820 
00007830 
00007840 
00007850 
00007860 
00007870 
00007880 
00007890 
00007900 
00007910 
00007920 
00007930 
00007940 
00007950 
00007960 
00007970 
00007980 
00007990 
00008000 
00008010 
00008020 
00008030 
00008040 
00006050 
00008060 
00008070 
00008080 
00008090 
00008100 
00008110 
" 00008120 
30008130 
00008140 
00008150 
00008160 
00008170 



Z4=ZBtM2+l)-ZB<Ml) 

AX»Y4»X3“Y3*X4 

AY*Y4*23-Y3*Z4 

A2>X4*Z3~X3«Z4 

C 

440 1F(IX«NE«JX) GO TO 445 
AXY«NC»»AXY(Na+AX 
AYZ(NC)*AYZ(NO+AY 
445 SAaSQRTCAX**2+AY*»2+AZ*#2>+SA 
C 

M2*M2+l 
450 continue 
460 M2»M24>1 

C# COMPRESS* EFFECT AND TRANSLATE COORDINATES 

500 DO '510 I»l*L 

XB< 1)«XB( n<*>FOX 

YB( n«BETA»(YB( I J+FOY> 

510 ZB( n«BETA*(ZBl n+FOZ) 

RETURN 

tND 

»DEC< BOPTS 

SUBROUTINE BQPTS 

c Fuselage 

c* CALC DIRECTION MATRICES AnD COORDINATE OF CONTROL 

C* POINTS Q 

C 

COMMON/DAT/ DA(5000I 
DIMENSION Fjxm 
EQUIVALENCE ( DA ( 4905 ) *FJX ) 

C 

COMMON/ CPB/ NVX»NVXM*NVY *NDV9NVB*NVSP9NF»NJX 
C 

large 80U i 3000 ) 

* »X0(650) *YQ(650) *ZO(650) 

1 *TMXI650) *TMY<650) *TMZ(650) 

2 *TTX4650) *TTY(650) *TTZ(650) 

3 *XN<656» Vyn( 65QT'“ *ZNt650r" ' 

4 ♦0M1I5200) »XBI4000> ♦YB<4000» *ZB<4000) 

C 

C 

c* start 

N0VH»NDV/2 


000061 BO 
00008190 
00008200 
00008210 
00008220 
00008230 
00008240 
00008250 
00008260 
000082T0 
00008280 
00008290 
00008300 
00008310 
00008320 
00008330 
00008340 
00008350 
00008360 
00008370 

00008380 

00008390 

00008400 

00008410 

00008420 
00008430 
1000 8440 

00008450 

00008460 

00008470 

OOOO848O 

00008490 

00008500 

00008510 

00008520 

00008530 

00008540 

00008550 

00008560 

00008570 

00008580 

00008590 

00008600 





1C»0 

KI“NVBP+NDVH-1 
DO 60 IV»1»NVY 
K2«IY*NDV-K1 
DO 50 IX»ltNJX 
jXwFJXllX) 

J2«JX*NVBP4K2 

j4.®J2-«fl"~ " "• 

IFUX-1> 10.10*20 
10 J3»l 

J-l^l '■ 

60 TO 30 
20 J)1»J2-NVBP 

■ '"■■■J3»J1>1 ■ 

30 ie=ic+i 

XQnC1*(XB( JlKXBt J2 )+XB( J3)+XB(J4)l/4. 
YQ(1" ^ ■ jl»>YB(J2)+YB(j3)>YB(j4))/4* 
Z0( fCI»f(26( Jl»+Z8( j2KZB(j3)+2B(j4)»/4. 

" TM14XBU2")*XB( Jl »+XB( J4l-XBU3r “ ' ” 

TM2*YB( J2l-YB(J1 )+VB( J4)-YB( J3) 
tM3*ZB( J2»“ZB( J1 )-fZB( J4)-ZB( J3> 

T T 1 -XB ( J3 ) -XB r J 1 4 +XB ( J4 ) -XB ( J2 4 " " 

TT3»Z8( J3 4-ZBiJ14+ZB(J4WZ8< J2) 
TT2aYB<J34~YB( Jn-»YBC J4)-YB(02) 

S2143 aSQRHTMl«*2+TM2»»2^TM3»»2 4 

S3142*S0RT(TT1*#2+TT2**2+TT3**2) 

TMX( !C>«TMl/S2X43 
^ TMYnC)»TM2/S2143 
TMZ< iC4»tM3/S2143 
TTX( IC»*m/S3l42 
TTYI IC)*TT2/S3142 
TTZ 4 iC 4 •TT3/S3142 ^ 

TXbTMY 4 IC4*TTZ4 lO-TWZt IC4*TTY( 1C) 

- : tysTMZC icT4tTXTTcT-TMX< iC)*tTZl'l^^^ 
T2«TMXUC4*TTV< 10-TMY4 ICJ*TTX( IC) 
SRXY2*SQRT(TX»*2*TY*»2+TZ»*2> 
XNUC)»TX/SRXYZ 
YMI ICI-TY/SRXYZ 
50 ZNaC)«TZ/SRXYZ 


00008610 
00008620 
00008630 
00008640 
00008650 
00Q0B660 
00008670 
' 00008680 
00008690 
00008700 
60008710 
00008720 
00008730 
00008740 
>0008750 
00008760 
00008770 
00008780 
00008790 
00008800 
00008810 
00008820 
00008630 
00008840 
00008850 
0000 8860 
00008870 
00008880 
00008890 
00008900 
00008910 
00008920 
00008930 
00008940 
00008950 
00008960 
00008970 
" 00008980 “ 
00008990 
00009000 
00009010 
00009020 
00009030 



r> n n 


60 CONTINUE 
RETURN 
END 

*DECK BCLS 

SUBROUTINE BCLS 

CALC CHORDWISE LOAD SHAPES FOR THE FUSELAGE 


COMMON/ DAT/ DA (5000) 

DIMENSION FVX(1).F(1) 

equivalence (0A(A710)»F) f ( DA(4735 I *FVX) * ( DA (4005 ) ♦FCD ) 

C 

COMMON/CPB/ NVX *NVXM *NVY tNDV .NVB *NV8P *NF 


C 


C* 

c 


c* 


c 


large BOUOOOO) ♦DMK7800) ♦PM(150#25) 

1 #DM2 ( 70341 ) tPHK 150) *CPH(150) *XOCd50) 

START 

CALC X/C * COS(PHI) AND PHI 
00 10 I»2*NVXM 
XOC< 1 )-FVX( I)/FCO 
rpH( 1 )* 1 *- 2 .*X 0 CU) 

10 PHII n* ACOSlCPHt I ) ) 

IF(XOC(NVXM)«LT.1.0) go TO 30 
WRITE (6t20) 

20 FORMAT <32H1 *♦ BCLS ♦ X/C GREATER THAN 1*0) 

CALL EXIT 

NO* OF LOAD SHAPE LOOP 
30 DO 200 J*1*NF 
DO 90 I*2*NVXM 
IF(F(1)*6E.1*0) GO TO 100 

LINEAR LOAD SHAPES 
DXC«XOC( n-FU) 

IF(OXC.GT.O.O) GO TO 70 
PM( I*J)»0*0 
GO To 90 

70 PMU*J)»0XC/(1*-F( J) ) 


90 continue 
GO TO 200 

C trig* load SHAPE 

100 DO 190 I»2*NVXM 

IF(F(J)-2*) 110»120.130 
110 PMU*J)«n*+CPH( I) )/SlN(PHl ( I) ) 


GO TO 190 


00009040 

00009050 

>0009060 

00009o70 

00009080 

00009090 

00009100 

00009110 

00009120 

00009130 

00009140 

00009150 

00009160 

00009170 

00009180 

00009190 

00009200 

00009210 

00009220 

00009230 

00009240 

00009250 

00009260 

00009270 

00009280 

00009290 

00009300 

00009310 

00009320 

00009330 

00009340 

00009350 

00009360 

00009370 

00009380 

00009390 

00009400 

00009410 

00009420 

00009430 

00009440 

>0009450 

00009460 



120 n )/SlN(PHl( n ) 00009470 

GO TO 190 00009480 

130 IF(AM00(FIJ) *2* ) > 150*150*140 00009490 

140 PMM*J>«SlN(<F(J)-l*)/2««PHnn) 00009500 

GO TO 190 00009510 

150 PM(l*J»*COS(tF(JJ-2*)/2**PHI(ln 00009520 

190 CONTINUE 00009530 

200 CONTINUE " 00009540 

RETURN 00009550 

END 00009560 

♦DECK FXV2 - 00009570 

subroutine FXY2 00009580 

C 00009590 

C* “ CALC* COORDINATE OF BODY VORTICES IXB*YB»ZB) 00009500 

C 00009610 

COM’MON/OAT/ 0A(5000J 00009620 

C 00009630 

DIMENSION XS(29) »TYS(36) *RZS(475> *FVXa50) *FVT(50» 00009640 

1 *FJX(149I *YYMU7) 00009650 

1 ■' *XMC<l)*22Mtl»*FZC<l) 00009660 

C 00009670 

EQUIVALENCE (OA(5)*FCD) *(DAtl7)*FLOn • ( OA < 18 ) *FTHI ) 00009680 

l*(0All9)*FCfir *(0A121)*XS) » (DA I 51) * TYS) * ( DA ( 90 ) *RZS ) 00009690 

2*(0A(566)*XMC) • ( DA< 600 ) * YYM) »(0A( 635 ) *ZZM) » ( DA ( 670 ) >FZC ) 00009700 

3*(DAI1276)iFnOV) *(DA(1460)*FVX) . (DA< 1610 ) *FVT ) • (DAC 15 ) *FMFI) 00009710 

4*(DA( 16) *FCPI ) *(0A( 1720)*FJX) -- - 00009720 

5*<DA(87) *FOX) * ( DA( 88 ) *FOY) * (0A( 89 ) *FOZ ) 00009730 

6»(DA<20) •FNXS) *(OA(50)*FNTY) ♦ (OAt 565) *FNXM) *<0A(1274) tFNVX) 00009740 

C -■ 00009750 

COMMON/CRG/ PI *PI4 *RC *BETA J0009760 

COMMON/CPF/ NVX*NVXM*NVY*NDV*NV8*NVBP*NF*NJX*IFBE*SINA*C0SA.FAREA 0000977q 

♦ *SA " ■ 00009780 

C 00009790 

LARGE BOU(3000> *FUS< 25000) »DMl 1 10400) *AXY( 650) »AYZ(650) 00009800 

■ ** XBI 4000 ) VYB 1 4000) *ZB( 4000) VttiNi 23430 ) *PYU 6061 ) *CEU3700) 00009810 

1*STH<400) *CTHUOO) *TH(400) 00009820 

2*STCU501_ *CTC 1150)^ *VX1( 150) *VX2U50) *ZCia50) *ZC2tl50) 00009830 

~3VRS(30r 'VstsTfO) "VZhTISO) ' VYm'( 150T ■~*2ca50)'^' *YMIN( 150) 00009840 

4*YMAX(150) *FVXl(150) *XmCL<34) *YMCL(34) *ZZmU34) *FZCLC34) 00009850 

C 00009860 

C INITUl 00009870 

NXSsFNXS 00009880 

NTY»FNTY 00009890 



NXM«FNXM 

FNVXM«FNVX-1* 

FNVB**NVB 

C* CALC longitudinal PARAMETER X 

FVX( 1)»0*0 
FVX(NVX)=FCD 
IF(FLOI) 30tl0*50 
C EVEN DELTA PHI 

10 DPHI»PI/(FNVXM-1*> 

PHX»DPHl/2* 

FCD2*FCD/2* 

DO 20 I»2»NVXM 

FVX( n«FCD2-FCD2*COS(PHX> 

20 PHX*PHX+DPHI 
GO TO 50 

C EVEN DELTA X 

30 0X=FC0/«FNVXM-1*> 

FVX(2)»DX/2. 

DO AO I*3*NVXM 

40 Fvx< n=Fvx( i-n+ox 
c* calc lateral parameters 

50 IF(FTHI) 120#120*60 
C INPUT THETA LIST 

60 if{Fndv*gt.i*i Go to ao 

DO 70 I»1*NVY 
70 TH(n*FVTn» 

TH<NVY+1)»360. 

GO To 140 
00 IC*0 

FVT(NVY+1)*360* 

DO 100 I>1»NVY 

DTH=(FVT(I+1)-FVT< I ) )/FNDV 

IC«IC+1 

TH<lCJ = FVTin 

DO 100 J»2*NDV 

IC=IC+1 

100 TH<IC»«TH(IC-1)+0TH 
TH{IC+l)*36d. 

60 TO 140 

c EVEN delta Theta 

120 DTH>360«/FNVB 
TH(1)=0. 

DO 130 I»2*NVBP 


00009900 

00009910 

00009920 

00009930 

00009940 

00009950 

00009960 

00009970 

00009900 

00009990 

00010000 

00010010 

00010020 

00010030 

00010040 

00010050 

00010060 

30010070 

oooiooso 

00010090 

OOOlOlOO 

oooiono 
00010120 
00010130 
00010140 
00010150 
00010160 
00010170 
00010180 
00010190 
00010200 
00010210 
00010220 
00010230 
00010240 
00010250 
00010260 
00010270 
00010260 
00010290 
0001 0300 
00010310 
00010320 



130 THt U=THl I-D+OTH 

C SiN-COS THETA 

lAO 00 150 I=ltNVBP 
THR=TH(I)/RC 
STH( n*SlN<THRl 

150 CTH< n=COS(THR) 

C* SHIFT arrays to LCM FOR CODiM 

DO 151 I*lfNVX 

151 Fvxun)=Fvxnj 
DO 152 I*1*NXM 
xMCun^xMCd) 

YMCt(I)=YYMd) 

ZZML(I>»ZZM<n 

152 FZCL(I)»FZCn) 

C* CALC CAMBER AND MUT IPL ICAT ION FACTORS 

IprNXM.NE.Ol GO TO 15A 
DO 153 I=1*NVX 
YM(n*i. 

ZMtn=i* 

153 zo n=o.o 
GO To 192 

15A CALL CODIM { XMCL ♦ YMCL *NXM*FVXL * YM tNVX ) 
IF(ABS{FMFn*E0*l*0) GO TO 180 
160 DO 170 I=1*NVX 
170 ZM( I)=YM( n 

GO To 190 

180 CALL CODIM (XMCL*ZZML*NXM*FVXl*ZM*NVX ) 

190 call CODIM (XMCL*FZCL*NXM*FVXL*ZC»NVX) 

192 IFlFCPn 220 » 220»200 

C PERPENDICULAR TO X-AXiS 

200 DO 210 I=2*NVX 
STCtI)»0.0 
210 CTC( I >=1. 

GO TO 250 

C PERPENDICULAR TO CAMBER LINE 

220 DX*FCO/1000. 

DXH=DX/^* _ ^ _ __ 

~ “ DO '2i6 I=2»NVX” ' 

VXK I-1)*FVX( n+OXH 
230 VX2( l-l )=FVX( n-DXH 

CALL CODIM (XMCL*FZCL»NXM*VX1.ZC1*NVXM) 

call codim (XMCL*FZCL»NXM*VX2*ZC2*NVXM) 

0X2»DX*DX 


00010330 

00010340 

00010350 

00010360 

00010370 

10010380 

00010390 

00010400 

00010410 

00010420 

00010430 

00010440 

00010450 

00010460 

00010470 

00010480 

00010490 

00010300 

00010510 

00010520 

00010530 

00010540 

00010550 

00010560 

00010570 

OOOIO 58 O 

00010590 

00010600 

00010610 

00010620 

00010630 

00010640 

00010650 

00010660 

00010670 

00010660 

00010690 

00010700 

00010710 

00010720 

00010730 

00010740 

00010750 



o n 


DO 240 I=2»NVX 
DZ=ZC2( I-l )~ZC1( I-l ) 

DH=SQRT(DX2+0Z<H»2) 

STC( I »=DZ/0H 
240 CTC« I >=DX/DH 

* TABLE LOOKUP FOR RADIUS AT EACH POINT 

input (R vs THETA) VS X 
250 CALL CODMT (NXS»NTY»NVB*TyS»RZS*TH»XB) 

L»1 

DO 350 I=2»NVX 
DO 310 ja2»NXS 

IF<FVX( I )-XSC J) ) 320*320#310 

310 continue 

RAT=0.0 
60 TO 330 

320 RAr*(XSU)“FVX< I )) / I XS( J ) -XS ( J-1 ) ) 

330 K=J 

DO 340 IT=1*NV0 
L = L+1 

2BtL)*XB( K>-RAT*(X8(K)-XBtK-l ) ) 

340 K-K+NXS 
L=L^-1 
Ll=L-NVB 
ZB(L)»ZB(L1) 

350 continue 

C* CALC X8fYB*ZB AND INTEGRATED LOAD PARAMETERS 

XBm«0»0 
YB( 1)»0.0 
ZB( 1)»0.0 
YMINI 1 >*0#0 
YMAXI 1 )»0*0 
FAREA*0.0 
L*1 

DO 390 IX*2»NVX 
C1*ZM( IX»«CTC( IX) 

IF(FMFI.LT.O.O) C1*YM< IX)*CTC( IX) 

YMIN< IX) *1000000 , 

YMAX( IX)»0,0 

DO 360 IY«lfNVBP 
L“L-*-l 

C2«Z8a)»CTH( lY) 

IF(FMFI.GE.0*0) GO TO 352 
Y8(L)*ZC< IX)+C1*Z81L)»STH< I Y) 


00010760 

00010770 

00010780 

00010790 

00010800 

00010810 

00010820 

00010830 

00010840 

00010850 

00010860 

00010870 

00010880 

00010890 

00010900 

00010910 

00010920 

00010930 

00010940 

00010950 

00010960 

00010970 

00010980 

00010990 

00011000 

oooiiolo 

00011020 

00011030 

00011040 

00011050 

OOOII08O 

00011070 

)oo 11080 
00011090 
0001 11 00 
0001 11 10 
00011120 
00011130 
00011140 
00011150 
00011160 
00011170 
00011180 



iBtL)*C2*iMA IX) 

60 TO 354 

352 YB(L)=YM( IX)*ZB(L)»STh( lY) 

ZB(LT»ZC( IX»+C1*C2 
354 XB(L)*FVXnX)-C2*STC( IX) 

IF(YB(L)*GT,YmAX( IX) ) YMAXt IX)«YB(D 
rFtYB(L).LT.YMIN( IX) ) YMIN( 1X)»YB(D 
360 eONTlNUE 

DY 1 a YMAX ( I X ) - YM I N I I X ) 

DY2=YMAX( IX-1)-YMIN( IX-l) 

FAREA=(0Y1+0Y2) *( FVX( IX)-FVX( lX-1 > I+FAtEA 

390 CONTINUE 
IFBEaO 

IF(DYl.GT*0*001) 1FBE=1 
C» SETUP FOR COEFFICIENTS 

C* ■' AXY AND AYZ = PROJECTED AREA 

U=I 

jXaFjXIl) 

NC*0 

SA=0*0 

M2»2 

C 

DO 460 IX»1*NVXM 
IFtlX.LE.jX) GO TO 410 
IF( I J«GE«NJX) 60 TO 410 
I J=IJ+1 
JX’FJXMJ) 

C 

410 DO 450 lYaltNVY 

IF(IX.NE.JX) go TO 420 

NC»NC+1 

AXY(NC)»0.b 

AYZ(NC)=0*0 

c 

420 DO 450 I*1*N0V 

IF(IX*6T.1J GO TO 430 
AX=YB(M2)*X8(M2+l)-Ya<M2+ll*XB(M2 ) 
AYsYB(M2)4ZBiM2+l)-YB(M2+l)4ZB(M2) 
AZ*XB(M2)4ZB(M2+l)-XBCM2+l)*ZB(M2> 

GO To 440 
C 

430 M1»M2-NVBP 

X4aXB(M2+l )-XB(Ml) 


00011190 
00011200 
00011210 
00011220 
00011230 
00011240 
00011250 
00011260 
00011270 
00011280 
0001 1 290 
00011300 
00011310 
00011320 
00011330 
00011340 
00011350 
00011360 
00011370 
00011380 
>0011390 
00011400 
00011410 
00011420 
00011430 
00011440 
00011450 
00011460 
00011470 
00011480 
00011490 
00011500 
00011510 
00011520 
00011530 
00011540 
00011550 
00011560 
00011570 
00011580 
00011590 
00011600 
00011610 




X3=XB(Ml+l)-X8tM2> 


00011620 


Y4=YB(M2+1>-Y8(M1 > 


00011630 


Y3=Y8(M1+1 )-YB(M2) 


0001 16A0 


24=ZBtM2+l 


00011650 


Z3=ZBIM1+1 )-ZB<M2) 


00011660 


AX=Y4*X3-Y3*X4 


00011670 


AY=Y4*Z3-Y3*Z4 


00011680 


AZ=X4*Z3-X3*Z4 


30011690 

c 



>0011700 

440 

IF(IX*ME«JXJ GO TO 445 


00011710 


AXY(NC)=AXYINC)+AX 


00011720 


AY2(NC)=AY2<NC»+AY 


00011730 

445 

SA»S0RT( AX**2-t-AY**2-fAZ*»2> + SA 


00011740 

c 



00011750 


M2»M2-H 


00011760 

450 

CONTINUE 


00011770 

460 

M2=M2-H 


00011780 

C* 

COMPRESS* EFFECT AND 

translate COORDINATES 

00011790 

500 

00 510 I=1*L 


00011800 


XB( n = XB< 1 )+FOX 


00011810 


Y8( ns8ETA*tY8l D+FOY) 


00011820 

510 

ZB( n=BETA#(ZB( I )+FOZJ 


00011830 


RETURN 


00011840 


END 


00011850 

♦DECK 

FOPTS 


00011860 


subroutine fopts 


00011870 

C 

FANPOO 


00011880 

C* 

CALC DIRECTION MATRICES AND COORDINATE OF CONTROL 

00011890 

C* 

POINTS Q 


00011900 

c 



00011910 


COMMON/OAT/ OA<5000) 


00011920 


DIMENSION FJX(l) 


00011930 


EQUIVALENCE ( DA ( 1720 ) *FJX ) 


00011940 

c 



00011950 


COMMON/CPF/ NVX»NVXM»NVY.NDV*NVB 

*NV8P»NF*NJX 

00011960 

c 



00011970 


large B0U(3000) .FUSI25000 

) 

00011980 


* *XQ(650» ♦YQ(650) 

»ZQ(650) 

00011990 


1 *TMX(650» »TMY(650) 

*TMZI650> 

00012000 


2 *TTX1650) *TTYI650I 

»TTZ(650J 

00012010 


3 *XN<650) .YN(650) 

•ZN(650i 

00012020 


4 »DM1(3900) »XB(4000) 

•YB(4000) *ZB<4000) 

00012030 

C 



00012040 



c* 


START 


NDVH=N0V/2 

IG*0 

K1»NVBP+N0VH-1 
DO 60 IY=1*NVY 
K2»IY*NDV-KI 
DO 50^ IX-l.NJX 
JX=FJX(IX) 

J2aJX»NVBP+K2 

J4=J2+1 

IF(JX-l) 10*10*20 
10 J3al 

Jl.l 

r,o TO 30 
20 J-1»J2-NV8P 
JSsJl+l 
30 IC»IC+1 

XQ I IC) =f ( XB< J1 ) +XB ( J2 ) '♦‘X8 ( J3 » >X8 ( J4 )» /A • 
V0( IC)=<Y8< J1)+YB( J2>+Y8( J3)+YB(J4) )/A. 
2Q( K) = (2B( J1 )+28( J2 J3>>28( J4) )/4* 

C 

TM1«X8( J2)-XBt J1 )+X8( J4)-XB( J3) 

TM2«YB( J2J-YB( Jl J+Y8( J4)-YBlJ3) 

§ TM3*28( j2J-28( J1 ) +2B( J4 )-2B ( J3 ) 

TT1*X8( J3)-XB( J1 )+XB( J4I-XB1 J2) 

TT3*2BT J1)+^9U4)-ZB ( J2) 

TT2*YB( J3»“YB< J1 1+Y8IJ4 )~YBlJ2 > 

C 

S2143 »SQRT(TM1**2-*-TM2**2+TM3**2) 

S3142=SQRT<TT1**2+TT2**2+TT3*»2) 

C 

TMXJ IO*TMi/S2143 
TMY( ICl=TM2/S2143 
TM21 IO*TM3/S2143 
TTX< IC)»TT1/S3142 
TTVnC) = TT2/S3142 
TT2( ICJ»TT3/S3142 


TXaTMYnC)*TT2nC)-TM2( IC»*TTY( IC> 
TY«TMZ( IC)*TTX( IO-TMX( IC)»TT2( ICl 
T2=TMX( IC)*fTY( IC)-TMY< I0#TTX< ICJ 
SRXYZ*SQRT^TX*^^2+TY*»2^•T2**2^ 

XN( IO»TX/SRXYZ 


00012050 
000;12060 
00012070 
000 120 80 
000,12090 
00012100 
00012110 
00012120 
00012130 
00012140 
00012150 
00012160 
00012170 
00012180 
0001 2190 
00012200 
00012210 
00012220 
00012230 
OGGI 2240 
00012250 
0001 2260 
00012270 
00012280 
00012290 
00012300 
00012310 
00012320 
00012330 
00012340 
00012350 
00012360 
00012370 
00012380 
00012390 
10012400 
00012410 
00012420 
00012430 
00012440 
00012450 
00012460 
00012470 



n n n 


■p- 


YN( IO'TY/SRXYZ 
50 ic)=TZ/SRXVZ 
60 CONTINUE 

RETURN 

EMD 

♦DECK FCLS 

SUBROUTINE FCLS 


CALC CHORDUIISE LOAD SHAPES FOR THE FANPOO 


C 

C 

C* 

C 


COMMON/OAT/ 0A<5000> 

DIMENSION FVXdUFd) 

equivalence (DAd295)*F) • ( DAd460 ) » FVX » * ( DA( 5 J *FCD) 

COMWN/CPF/ NVX*NVXM»NVY.NDV*NVB*NV8PtNF 

large BOUOOOO) *FUS< 250001 *0M1( 7800 I *PMd00*25) 

1 »0m 2{46591) *PH| (150) *CPH(150) tX0Cd50) 

START 

CALC X/C . COS(PHd AND PHI 
DO 10 I=2*NVXM 
xoc( n=Fvx( n/FCD 
CPH( I )»l*-2.#XOC(I) 

10 PHK n» ACOS(CPH( in 

IF(X0C(NVXM) .LTd.O) GO TO 30 
WRITE (6*20) 

20 FORMAT ( 32H1 *♦ FCLS * X/C GREATER THAN 1*0) 


CALL EXIT 

C* NO* OF LOAD SHAPE LOOP 

30 DO 200 J=1*NF 

IF(Fd).GE*l*0) GO TO 100 

C LINEAR LOAD SHAPES 

00 90 I»2*NVXM 
DXC*X0C( n-F( J) 

IF(OXC*GT*0#0) GO TO 70 
PMd*J) = 0*0 
60 TO 90 

70 PMd*J)»0XC/d**“F( J)) 

90 CONTINUE 
GO TO 200 

C TRIG* LOAD SHAPE 

100 DO 190 I*Z*NVXM 

IF(F(J)-2.) 110*120.130 


00012480 

00012490 

00012500 

00012510 

00012520 

00012530 

00012540 

00012550 

00012560 

00012570 

00012580 

00012590 

00012600 

00012610 

00012620 

00012630 

00012640 

00012650 

00012660 

00012670 

00012680 

00012690 

00012700 

10012710 

00012720 

00012730 

00012740 

00012750 

00012760 

00012770 

00012780 

00012790 

00012800 

00012810 

00012820 

00012830 

00012840 

00012850 

00012860 

00012870 

00012880 

00012890 

00012900 



110 PM( I *J) = < 1#+CPHU) )/SlNlPHl ( n > 

GO TO 190 

120 PM« I*J>=t 1*-CPH( I ) »/SlN(PHI ( I n 
GO TO 190 

130 IF(AMOOIF( J) »2. ) ) 150*150*140 
140 PM( 1* J)*SIN((F{ J)-l* )/2**PHI ( I) ) 

GO TO 190 

150 PM< I*J)=COS( (F( J)-2*)/2**PHH I ) ) 

190 CONTINUE 

200 continue 

RETURN 

END 

♦DECK WXY2 

SUBROUTINE WXYZ 
C 

Q* ■" CALC* coordinate OF WiNG 


00012910 
00012920 
00012930 
00012940 
00012950 
00012960 
00012970 
00012900 
00012990 
0001 3000 
000l3ol0 
)OO1302O 
00013030 
00013040 
00013050 

VORTICES and control POINTS 00013060 

00013070 


C 


C 


c 


c 

c* 


COMMON/DAT/ da { 5000 j 00013080 

DIMENSION WPI ( 1) *WP0m 00013090 


00013100 

equivalence (DA< 2) *WSPAN> *(DAI1203) *WIT0> *<DA(1204) »WITU 00013HO 
1* (DAI 1210) *WP0) «(DA(1240)«WPI) » ( DA ( 1200 ) * WOX ) * ( DA ( 1202 ) *WOZ ) 00013120 
2*(DA( 1208) *XNE0) *(0A( 1209) *XN£I) ♦ (DA( 1270 ) * WNVO ♦ < DA ( 128 1 ) *WNW ) 00013130 


COMMON/CRG/ P I *P I4 *RC *8ETA 
COMMON/CFG/ IDBtiDF 

COMMON/CPW/ HWS*nTI *NT0»DlI »DL0*NE2»NE3 
1 *NE5 *ntb*nu*nw»nvc*nvs*njc*njs*nvso.nvsi *iwx 


LARGE 

1 

2 

3 

4 


BOUOOOO) *FUS( 25000) *FAN( 23700) 

*EV(52) »XLV(52) *XTLV(52) 

*0M1(810> *WPE(30) *WPT(60) *DM2(11540) 

*CFK50) *CFJ(50> *STH(50) *ACT(50) 

*ET(52) *XLT(52) »XTLT(52) 


start 

0TH»PI/WNVC 

DTH2=0TH/'2* 

TH=0TH2 


00013140 

00013150 

00013160 

00013170 

00013180 

000X3190 

00013200 

00013210 

00013220 

00013230 

00013240 

00013250 

00013260 

00013270 

00013200 

00013290 


DO 2 I*1*NVC 

CFK I )»*5*( l*~COS(TH) ) 

STH( I )*SIN(TH) 

ACT! I )»TH-DTH2 


00013300 

00013310 

00013320 

00013330 



CFj( n=*5*( i.-cos(act( un 

2 TH»TH+DTH 
HWS*W3PAN/2* 
lWO=3**XNEO-2. 

C SETUP FOR WING ONLY 

IF( IOB*NE.O) 60 TO 18 
IFMDF.NE*0) GO TO 18 
DO lU I=ltIW0*3 
WPT( I )»WPO( I ) 

WPTt I+1)»WP0( I+l) 

WPTt I+2)*WPOn+2> 

10 continue 

NPT=I 

NVSH»NVS/2 

WNVSH»NVSH 

0L=1*/WNVSH 

NE2=NVSH+l 

EV(2)«1*~DL 

EV(i)»£V(2)+*625»DL 

ET(l)=l.-0L/2« 

ET(2)=ETm-DL 
DO lA I*3*NE2 
ET( n»ETU-l)-DL 
lA EV( n»EV( I-ll-DL 
NE5*100 
NE3=100 
OLO»OL 
DL2»0L 
GO TO 82 
18 NVSH»NVS0/2 
NE3=NVSH-3 

C SETUP WING PLANFORM TABLE 

IC*1 

IFnDF*EQ«0) GO TO AA 
lWX»3.*XNEI-2* 

IC»IWX 

DO AO I=ltIWX«3 

wpEu'c)=wpni) 

WPE( IC+1 )*WPI< I + D+WOX 
WPEl IC+2)=WPI(I+2)-^WOX 
WPT( nsWPEi IC) 

WPT( I+l) »WPE( IC+U 
WPT( I+2)*WPE( IC+2> 


000133AO 

00013350 

00013360 

00013370 

00013380 

00013390 

0001 3 AOO 

00013A10 

00013A20 

00013430 

00013AA0 

00013450 

00013460 

00013470 

00013480 

00013490 

00013500 

00013510 

00013520 

00013530 

00013540 

00013550 

00013560 

00013570 

00013580 

00013590 

00013600 

00013610 

00013620 

00013630 

00013640 

00013650 

00013660 

00013670 

00013680 

00013690 

00013700 

00013710 

>0013720 

00013730 

00013740 

00013750 

00013760 



IC=IC~3 

WPE<6>*WPe(61-W0X 
WPE(9>=WPE{9)-W0X 
WPT( IWX-4)=WPTnWX-4}-W0X 
WpT( IWX-l)sWpTl lWX-1 J-WOX 
CALL FRXYZ ( WIT I *NT I » 1 . 1 WX > 

IF(IDB*EQ*U) GO TO 42 
NE2=NVS/2 
NE5»NE2-3 
WPt(6)sWPT(6)-W0X 
WPTl9)cWPT(9>-W0X , 

CALL BRXYZ 
42 IC=lWX+3 
44 DO 50 I*1»IW0*3 
WPE( I I=WPO< 1 1 
WPEC 1+1 J *WP0(I+1 )+W0X 
WPEl I+2)=WPOU+2}+WOX 
IF(UEQ*4) WPEl I+2) = WPOU+2) 

IFtr.EQ*7l WPEl I+2I=WP0< 1+2) 

WPT( IC)*WPE( n 
WPTnC+l)»WPE(I + l) 

WPTl IC+2)»WPE< 1+2) 

IC=IC+3 

50 continue 
60 NPT*IC-3 

CALC VORTEX LATTICE SPACING SPANWISE 

wnvsh*nvsh 

OLO*l l*-WPOl 10) )/lWNVSH~3*5) 

EVINE3 + 1 ) = lWPO(lO)+WPO(7n/2* 

ETINE3+1 )=WPO< 7) 

EV(NE3+2)*lWPO(7)+WPOl4) )/2* 

ET(NE3+2)*WP0(4) 

EVINE3+3 )*IWP0(4)+WP0( 1)1/2. 

ET(NE3+3)*WPOl 1) 

EV(2)=1.-0L0 
EVll)sEV(2)+.625*DLO 
ET(l)»l.-0L0/2. „ 

ET < 2 )=et'( i y-bi6~ . 

DO 70 I=3»NE3 
ETI I)»ET( I-1)-0L0 
70 EVlI)»EVn-l)-DLO 

IF( IDF.NE.O) GO TO 72 
N£5«NE3 


00013770 
00013780 
0001 3790 
00013800 
00013810 
00013820 
00013830 
0001 3840 

00013850 

00013860 

00013870 

00013860 

00013890 

00013900 

00013910 

00013920 

00013930 

00013940 

00013950 

00013960 

00013970 

00013980 

00013990 

00014000 

00014010 

00014020 

10014030 

00014040 

00014050 

00014060 

00014070 

00014080 

00014090 

00014100 

00014110 

00014120 

00014130 

00014140 

00014150 

00014160 

00014170 

00014180 

00014190 



NE2=NE5+3 
NE3=100 
call BRXY2 
ETCNE2+1)“1* 

60 TO 84 

72 CALL FRXYZ IWITO*NTO*0* I«IX) 

c inner wing 

EV(NE3+4)=(WPI ( IWX-3J+WPI ( IWX) )/2« 
ET(NE3+4)*WPI ( IWX} 

EV(NE3+5)s=lWPI ( IWX-61+WPI UWX-3> )/2. 
ET(NE3+5)=WPI ( IWX~3» 

EV ( NE3+6 } * ( WP I ( I WX-9 ) +WP I ( I WX-6 ) ) /2 . 
ET(NE3+6)awPI (IWX-6) 

NE4*NE3+7 

NE5=100 

IFn0B#EQ*0} GO TO 76 

NVSH»NVSI/2 

WNVSH^NVSH 

DLI»I WPK IWX)-WPI( 1> }/WNVSH 

NE2*NVS/2 

NE5*NE2-3 

EV(NE5+1 }*(WPI( 10)+WPI(7) )/2* 
ET(NE5+1)*WPI (10) 
EV(NE5+2J«tWPI(7}+WPI(4) >/2. 
ET(NE5+2)»WPI(7) 

EV(NE2I*(WPI {4)+WPn 1 n/2. 
ET(NE21»=WPH4J 
ET(NE2+1)»WPI (1) 

IF(NE4«GT*NE5) GO TO 84 
DO 74 I=NE4tNE5 
ET(1)=ET(I-1}-0LI 
74 EV( I)=EV( I-D-DLI 
GO To 84 

76 NVSH»NVSI/2+l 
WNVSH'NVSH 

0LI»WPI( IWX-9)/<WNV6H-3*5} 
NE2=NVS/2+l _ ... 

DL2*OLl/2* 

DO 80 I*NE4fNE2 
ETU)sEV( 1-1)*-DL2 
80 EV< 1)*EV( I-1)-0LI 
82 EV(NE2)-0« 

ET(NE2+1)*-DL2 


00014200 

00014210 

00014220 

00014230 

00014240 

00014250 

00014260 

00014270 

00014260 

00014290 

00014300 

00014310 

00014320 

00014330 

)0014340 

00014350 

00014360 

00014370 

00014380 

00014390 

00014400 

00014410 

00014420 

00014430 

00014440 

00014450 

00014460 

00014470 

00014480 

00014490 

00014500 

00014510 

00014520 

00014530 

00014540 

00014530 

00014560 

00014570 

00014580 

00014590 

00014600 

00014610 

00014620 



<3> 

\o 


84 NE1»NE2+1 
EV(NEi)»l* 

C FIND X LEADINO EUGt AND CHOKD AT EACH ETA STATIONS 

call WINGD (NEl*ETtXLT*XTLT*wPT) 
call WINGD (NE1»EV*XLV»XTlV*WPT) 

C TEST WING PlANFORM TABLE FOR NACELLE TYPE BREAK 


00014630 

00014640 

J0014650 

00014660 

00014670 

00014680 


IF(WNW#NE.0.0 J GO TO 100 
00 90 I*liNPT*3 
IFtWPTI I+3)*GE«1.0> GO TO 100 
IF( ABS<WPT( I )-WPT( 1+3) ) •GT.0.01) GO TO 90 
DO 85 J=l»NE2 

IF<ABS(WPT( n-ET(J) ).GT. 0,005) GO TO 85 
ET(J)=-ET(J) 

XLT( J)aWPT( I+l) 

XTLH J)*WPT< I+2)-WPT( I+l) 

continue 
continue 
HWS=HWS*BETA 
RETURN 
END 

♦DECK BRXV2 

SUBROUTINE BRXY2 
C 

C* 

C 


85 

90 

100 


CALC, COORDINATES OF ROOT SECTION 


COMMON/ DAT/ 
DIMENSION 


DAI 5000) 
FVXI 150) 


»WJCI30) *WJS(30) 


equivalence 

1*1 0A( 1690) *WJS) 


(0A(1202) •ZCON) 
* ( DA(4U15) »FOX) 


» (0A( 1207) *WITH) »IOA(1660) *WJC) 
♦1DA(4735) *FVX) »(DA< 1270) *WNVG) 


00014690 

00014700 

00014710 

00014720 

00014730 

00014740 

00014750 

00014760 

00014770 

00014780 

00014790 

00014800 

00014810 

00014820 

00014630 

00014840 

00014650 

00014860 

00014870 

00014880 

00014890 

00014900 

00014910 

00014920 

00014930 


C 


COMMON/ CRG/ 

PI rPIAfRC 

tBETA " 

00014940 

C0MM0N/CP8/ 

NVX»NVXM* 

NVY*NDV*NVB»NVBP 

00014950 

COMMON/ CPW/ 

HWSjNTI »NTO»DlI »DL0*NE2*NE3 

00014960 

1 

fNE5*NVT,NU»NWtNVC»NVS*NJC»NJS 

00014970 

00014980 

large 

BOUI3000) 

,FUS( 13000) 

00014990 

1 

♦XBI4000) 

♦ YB ( 4000 )■ ■ *2B( 4000) ‘ »FAN< 23700 > " 

oooisooo 

2 

#EV(52) 

*XLV(52) *XTLV(52) 

00015010 

3 

*X0(270) 

♦YD1270) *201270) 

00015020 

4 

• DMH30) 

yWP£(60) «0M2(6140) 

00015030 

5 

•XRJ 1800) 

*YR(1800) *2R<1800) 

10015040 

6 

»CFI ( 50) 

*DM3( 10784) »PYU6061) *CELt3700) 

00015050 



n n 



c 


»XRFl50) *YRF<50) iZRFtSO) ♦TaNI‘ 150) »lAN2il5U) 00015060 

00015070 


SEARCH LIST OF FUSELAGE 
DO 50 I*1»NVX 
FVXTsFVXl I )+FOX 
IF(WPE(2) .LT.FVXT) go TO 60 
50 CONTINUE 
60 IS=I 

00 70 I=IS*NVX 
FVXTcFVXI n+FOX 
IF(toPE(3ULT#FVXT) GO TO 90 
70 CONTINUE 


X FOR XLE AND XTE OF WING ROOT 00015080 

00015090 

00015100 

00015110 

00015120 

00015130 

00015140 

00015150 

00015160 

00015170 

00015180 


SHIFT VORTEX COORD* OF FUSELAGE TO THE MERGING ROOT 

90 IE=I 

ITV=WITH-1. 

IC=ITV»NDV+2+NVBP*( IS-2 ) 

IC1=IC-NV8P 
IF(ICl.LE.O) IC1=IC 
YCON=HWS*WPE( 10) 

NPT*I£-I3+2 
DO 92 I=1*NPT 
X0(II»XBUC1) 

YD( n=YB( ICD/6ETA 
20( n»ZB( ICD/BETA 
92 ICl*ICi+NVBP 

CD*WPE(3)-WPE(2) 

DO 94 I*1*NVC 
94 XRF{ n»WPEl2)+CO*CFn I) 

call codim (XD*YD»NPT*XRF»YRF*NVC) 

CALL CODIM (XDfZD#NPT.XRF.ZRF,NVO 
IS«0 

DO 96 I«1»NVC 

IS=lS+4 

XRI IS)*XRF( I) 

YR( IS)»YRF( I J 
96 ZR( IS)sZRF(I) 

XRS»XRIIS) 

NVT=NVX-IE+1 

IC»IC1-NVBP 

DO 100 l*l»NVT 

IS“IS+4 

XR< IS)»XB( IC) 


00015190 
00015200 
00015210 
00015220 
00015230 
00015240 
00015250 
00015260 
00015270 
00015280 
00015290 
00015300 
00015310 
00015320 
00015330 
00015340 
JOO 15350 
00015360 
00015370 
00015380 
00015390 
00015400 
00015410 
00015420 
00015430 
00015440 
00015450 
00015460 
00015470 
00015480 



n n 


YRi IS J»YBt ICl /BETA 
iRi IS»=ZBUC)/BETA 
100 IC=IC+NVBP 


* CALC VORTEX COORD* OF MERGING ROOT TO PLANAR WING 

XRe*XRUS) 

WNVTsNVT 

CD=WPE11Z>-<WPE(11) 

IS=-3 

DO 110 I=1»NVC 
IS=IS+A 

XR( IS)=WPE< 11 >+CD*CFI U ) 

YRUSJ=YCON 
110 ZRdSJ^ZCOfT 
XRR=XR( IS) 

OXraXRE-XRS 
DXR=XRE-XRR 
DO 120I*1#NVT 
lS*lS+4 

XRt IS)*(XR( IS+3)-XRS) /DXF*DXR+XRR ' 

YR(IS)=YCON 
120 2R(I31=ZC0N 
C 

C* calc coord* of the two center root VORTEX LINES 

TTM=*6666667 
IX=4*NVC 
X1=WPE(3) 

Yl=(¥R( IX)+YRUX+4) )/2* 

X2»WPE(12) 

Y2»YC0N 

0X»X2“X1 , 

DY=Y2-Y1 

D^=^C0N-{iR{ IX)+ZR( IX+4) )/2* 

SQO=SQRT ( DXW*2+DY**2+DZ**2 ) 

XPl=Xl+DX/3*-WPE(6)*DY/SQD 
YP1»Y1+DY/3*+WPE(6)*DX/SQD 
XP2'X1+TTH*DX-WPE( 9)*DY/SQD 
YP2=Yi4-tTH*oV'+WPE< 9 )#OX/SoD 

TT1=(XP1-X1 )/tYPl-Yl) 

TT2= ( X2-XP2 ) / ( Y2-YP2 ) 

0Y*(WPEt4J-WPEll ) )*HWS 
TL1»( WPE(5 )~WPE(2) )/DY 
TL2=(WPE1 11 )-WPE(8) )/DY 


00015490 
00015500 
00015510 
00015520 
00015530 
000155A0 
00015550 
00015560 
00015570 
00015580 
00015590 
00015600 
00015610 
00015620 
00015630 
000156^0 
00015650 
JOO 15660 
00015670 
00015680 
00015690 
00015700 
00015710 
00015720 
00015730 
000157A0 
00015750 
00015760 
00015770 
00015780 
00015790 
00015600 
00015810 
00015820 
00015830 
0001 5 8A0 
00015850 
00015860 
00015870 
00015880 
00015890 
00015900 
00015910 



0T1=<TT1-Tl1)/WNVC 
0T2=( TT2-TL2)/WNVC 
TANK 1)=TL1+DT1/2* 

TAn2( 1)=TL2+0T2/2. 

DO 130 1=2»NVC 
TANKI } = TAN1( I-l >+DTl 
130 TAN2( n = TAN2(l-l)«^DT2 
C 

IS = 1 

DO 140 I«1»NVC 
DX»XR( IS)-XR( IS+3) 

DY=YR( IS)-YR{ IS+3) 

D2=2R{ IS)-2R(IS+3) 

OXOY=OX/OY 

TCI* ( TANK I )-DXOY) /( l#+OXDY*TANK I) » /3# 
TC2*(TAN2( I )-DXDY)/(1,+DXDY*TAN2( I ) »/3* 

XR( IS+2)*XR( IS+3 )+DX/3.+DY*TC1 
YR( IS+2)*YR{ IS+3 »+DY/3.-DX* TCI 
ZRl lS+2)*ZRUS+3»+D2/3* 

XR( lS+l)=XRns+3)+TTH«OX~DY*TC2 
YR( IS+1»«YR< IS+3)+TTH*0Y+DX*TC2 
2R( IS+l)aZR( IS+3)+TTH*DZ 
^ 140 IS=IS+4 

C+ CALC XR»YR»ZR FOR TRAILING VORTICES 

OT1»TANKNVO/WNVT 
DT2»TAN2{NVC)/WNVT 
TANK 1)*TANKNVC)~0T1 
TAN2( 1)*TAN2<NVC)-0T2 
DO 150 I»2#NVT 
TANK UsTANK I-K-DTl 
150 TAN2( I )*TAN2n-l)-0T2 
C 

DO 160 l»ltMVT 
DXaXRl IS)-XR{ IS+3) 

0Y*YRt IS)-YR( IS+3) 

DZ»ZR( IS)-ZR( IS+3) 

6xdy=6x/dy 

TCl*iTANKI )-DXDY)/a.+OXOY*TANK I))/3. 
TC2»(TAN2( I )-0XDY)/( 1*+DXDY*TAN2( I) )/3. 

XR{ IS+2)«XR( lS+3)+DX/3*+OY*TCl 
YR( IS+2)=YR< IS+3)+DY/3.-DX+TC1 
ZR( IS+2)*ZR{ IS+3)+OZ/3. 


00015920 
00015930 
00015940 
00015950 
00015960 
J0015970 
00015980 
00015990 
OOO 16000 
OOOI 60 IO 
00016020 
00016030 
00016040 
00016050 
OOOI 606 O 

0001 60 7 o 
00016080 
00016090 
00016100 
00016110 
00016120 
00016130 
00016140 
00016150 
00016160 
00016170 
00016180 
00016190 
00016200 
00016210 
00016220 
00016230 
00016240 
00016250 
00016260 
00016270 
00016280 
00016290 
00016300 
00016310 
00016320 
00016330 
00016340 




XRUS+1 ) =XR US+3 ) + TTH*0X-DY«TC2 
YRJ IS-H)=YR( IS+3) + TTH*DY+DX*TC2 
ZR nS+1 ) =ZR U S+3 ) -mH^DZ 
160 IS*IS+4 

C* CAtC CHORDS FOR WING ROOT SECTION 

WPE( 3)-SQRT( (WPE(2)-XR14) )<(*2+«WPE( H»HWS-YR(4))**2)+WPe(2> 
WPE(6)«SQRT< (WP£(5J-XR( 3> J**2+ < WPEU ) #HWS-YR ( 3 ) ) **2 > +WPE < 5 ) 

WPE ( 9 » sSQRT I ( WPE ( 8 ) -XR ( 2 ) )**2+ ( WPE ( 7) »HWS-YR ( 2 » ) **2 ) ->-WPE < 8 ) 

IS=4 

DO 190 I=2»NVC 
lS=lS+4 

WPE( 3)»SQRT< (XR( I S-4 ) -XR (I S > >**2+ ( YR ( IS-4l-YR( IS) )**2 >+WPE(3) 
WPE(6)*SQRT( iXR( IS-5)-XR< IS-1) )**2 «(YR( is-5)-Yr{ IS-1) )#*2)+WPE<6) 
190 WPE(9)=S0RTI (XR( IS-6)-^XR< IS-2) )**2+< YR( IS-6)-YRI 1 5-2 > ) **2 ) +WPE < 9 ) 
WPE(3)*SQRT( (XR( I S ) -X I ) *#2+ ( YR ( IS) -Y1 ) »*2 ) +WPE( 3 ) 

WPE ( 6 ) =SORT ( ( XR ( I S- 1 ) -XPl )**2+ ( YR ( I S-1 ) - YP 1 ) > +WPE 1 6 ) 

WPE t 9 ) =SQRT I ( XR ( I S-2 ) -XP2 ) **2 + ( YR U S-2 ) -YP2 ) **2 ) +WPE ( 9 ) 

C» COMPRESS* EFFECT ON WING ROOT PARAMETERS 

IS=4*(NVC+NVT) 

IFIBETA.EO*!.) GO TO 196 

DO 192 1=1. IS 
YRt n=VRU )*BETA 
192 ZRI I )=ZR( n*BETA 
C SHIFT ANS* 

196 1C»1200 

DO 200 I = 1*1S ' ' . ' ■ 

1C*IC+1 
xRdCJeXRni 
YR(IC)*YR( n 
200 ZR( IC)»ZR( 1 ) 

C* CALC CONTROL POINTS AT SPECIFIED WJC AND WJS 

is*l8d ~ 

DO 230 IJS=1»NJS 
IY“WJS(IJS) 

I£«IY-Ne5 

IFIIE.LE.O) GO TO 230 
IFJIE*GT*3) GO TO 230 

DO 225 IJCsr.NJC “ 

IX»WJC(IJC) 

IC=4*IX+IE+1200 

IS=IS+1 

XO< IS)»tXRl IC)+XR< lC+1 )+XR( IC-4 )+XR< IC-3 ) )/4. 

YD( IS)=( YR( IC)+YR{ IC+1)+YR( IC-4)+YR( IC-3))/4, 


00016350 
00016360 
00016370 
00016380 
000X6390 
00016400 
00016410 
00016420 
00016430 
00016440 
00016450 
00016460 
00016470 
00016480 
00016490 
00016500 
00016510 
00016520 
00016530 
00016540 
00016550 
00016560 
00016570 
00016580 
00016590 
00016600 
00016610 
00016620 
00016630 
00016640 
00016650 
OOO 16660 
>0016670 
00016680 
00016690 
00016700 
00016710 
00016720 
00016730 
00016740 
00016750 
00016760 
00016770 



-4 

■P' 


225 ZD( IS) = (4LR( IC)+^R( IC+1)+^R( IC-4)+ZRt IC~3) )/4. 

230 continue 
RETURN 
END 

♦DECK FRXYZ 

SUBROUTINE FRXYZ ( W I TH.NVT * 1ST ♦ IXX J 
C 

C* CALC* COORDINATES OF ROOT SECTION 

C 

COMMON/ DAT/ DAI 5000) 

DIMENSION FVX<150) *WJC130) ♦WUS130) 

C 

equivalence IDAi 1202 J *ZC0N» » < DA U460 ) tPYX ) ♦ I DA < 1660 ) » JC ) 

1*IDA(1690) »WJS) > ( DA(67 ) «FOX) • ( DA< 1270 ) » WNVC ) 

C 

COMMON/CRG/ PI *P 14 *RC tBET A 
COMMON/CPF/ NVX*NVXM*NVYtNDV«NVB«NVBP 
COMMON/CPW/ HWS*NTI »NT0»DLI »DL0*NE2*NE3 
1 *NE5»NDD.NU*NW»NVC*NVS»NJC*NJS 

C 


00016780 

00016790 

00016800 

00016810 

00016820 

00016830 

00016840 

00016850 

00016860 

00016870 

00016880 

00016890 

00016900 

00016910 

00016920 

00016930 

00016940 

00016950 

00016960 

00016970 


large 


80UI3000) .FUSI 25000) »OMl( 11700) 


C 

c* 


1 

2 

3 

4 

5 

6 
7 


»XB(4000) 
»EV) 52) 
»X0( 270) 
*WPE)30) 
fXR( 1800) 
♦CFI (50) 
•XRFC50) 


♦YB(400U) 

»XLV(52) 

*YD(270) 

*MPT(60) 

»YR(1800) 


♦ZB(400U) 
«XTLV(52) 
»Z0(270) 
«0M2(6140) 
*ZR( 1800) 


»0M3( 10784) *PYL(6061) 
»YRF(50) »ZRF(50) 


*CEL( 3700) 
♦ tank 150) 


♦TAN2( 150) 


C 

c* 


50 

60 


70 


90 


DO 50 I* 
FVXT=FVX 
IF( WPE(2 
CONTINUE 
IS*1 

DO 70 1= 
FVXT=FVX 
IFd^nPEO 

continue 


SEARCH LIST OF FUSELAGE X FOR XLE AND XTE OF WING ROOT 
ItNVX 
( I ) ♦FOX 

)*lt,fvxt) go To 60 


IS*NVX 
( I )+FOX 

).LT*FVXT) go To 90 


SHIFT VORTEX COORD* OF FUSELAGE TO THE MERGING ROOT 


IE*I 
ITV*WITH 


- 1 . 


;001698q 

00016990 

00017000 

00017010 

00017020 

00017030 

00017040 

00017050 

00017060 

00017070 

00017080 

00017090 

00017100 

00O17H0 

00017120 

0001713d 

00017140 

00017150 

00017160 

00017170 

00017180 

00017190 

00017200 



IC=ITV*NDV+2+nVBP* I lS-2 ) 

ICX=IC-NV8P 
IFdCl.LE.O) IC1*IC 
YCON=HWS*WPE( 10) 

NPT=ie-lS+2 
DO 92 1»1»NPT 

xo(n«xB( ici) 

YD( n = YB< ICD/BETA 
ZD( n=ZBtICl)/BETA 
92 IC1=IC1+NVBP 

CD=WPE(3)-WPE(2» 

. DO 9A I=1*NVC 
9A XRFin*WPEl2l-»-CD*CFI( n 

CALL“CdOlM“TXD»YD»NPT*XRF’#YRF*NVC) ’ - - - 

call codim {X0#ZD»NPT »XRF*ZRF.NVC) 

IS«0 

DO 96 I«l*NVC 

IS=lS+6 

XRI IS)=XRF( I) 

YR( IS)»YRF( If " 

96 ZRIIS)=ZRFU) 

XRS»XR(IS) 

NVT=NVX-IE*H 
IC»IC1-NVBP 
_ DO 100 I«1*NVT 
■' IS=IS>f4' ■ 

XR(IS)=XBnC) 

YRUS)=YBUC>/8£TA 
ZRUS)»ZB( ICJ/8ETA 
100 IC=IC+NVBP 
C ■ ■ 

C* CALC VORTEX COORD. OF MERGING ROOT TO PLANAR WING 

XRE=XR( IS) 

WNVTsNVT 

CD=WPE( i2)“WPE< 11) 

IS=-3 

DO 110_L*1«NVC _ 

iS = IS+4 • ■ “ '■ ■ — 

XRUS)«WPE( ll)+CO*CFI U ) 

YR( IS)=YC0N 
110 ZR( IS)=ZC0N 
XRR=XR(IS) 

DXF*XRE-XRS 


00017210 

00017220 

00017230 

00017240 

00017250 

00017260 

00017270 

00017280 

J0017290 

00017300 

00017310 

00017320 

00017330 

00017340 

00017350 

00017360 

00017370 

00017380 

00017390 

00017400 

00017410 

00017420 

00017430 

00017440 

00017450 

00017460 

00017470 

00017480 

00017490 

00017500 

00017510 

00017520 

00017530 

00017540 

00017550 

00017560 

00017570 

00017580 

00017590 

00017600 

00017610 

00017620 

00017630 



VJ u 


DXR=XR£-XRR 
00 120 I=1*NVT 

XR US ) = ( XR U S+3 ) -XRS ) /DXF*DXR+XRR 


YR( IS)=YC0N 
120 ZR(IS>=2CON 


♦ CALC COORD* OF THE TWO CENTER ROOT VORTEX LINES 

TTH=*6666667 
IX=A*NVC 
X1=WPE13> 

Yia(YR( IX)+YRt IX+4))/2* 

X2=WPE( 12) 

Y2=YC0N 

0X=X2-X1 

0Y=Y2“Y1 

D2=ZC0N-(^RUX)+2R( IX+4n/2* 

SQD*SQRT i DX*-»2+DY*»2+0^**2 ) 

XPlaXl+OX/3*-WPE(6)*DY/SQD 
YP1=Y14-0Y/3 .+WPE ( 6 )*DX/3QD 
XP2*X1+TTH*0X-WPE( 9)*0Y/SQD 
YP2»Y1+TTH*DY+WPE( 9>*0X/SQ0 
TT1=IXP1-X1)/IYP1-Y1) 

TT2»IX2-XP2)/<Y2-YP2) 

DY»iWPE(4)-WPEUM*HWS 
TL1*( WPE{5)“WPE(2M/DY 
TL2=(WPE(X1)-WPE(8M/0Y 

DT1=(TT1-TL1I/WNVC 

DT2*(TT2-TL2»/WNVC 

TAN1U)®TL1+0T1/2* 

TAN2( 1)=TL2+Dt2/2* 

00 130 ls2*NVC 
TANK I )*TAN1U-1)+DT1 
130 TAN2( n»TAN2U-l)+DT2 
C 

IS«1 

DO 140 I»i*NVC 
OX=XR( IS)-XRUS+3) 

DY*YR< IS)-YR( IS+3) 

DZ=ZR( IS)-ZR( IS-t-3) 

DXDY=DX/DY 

TC1= < TANl I I )-DXDY ) / ( 1 •+0X0Y*TAN1 I I) > /3. 


00017640 

00017650 

00017660 

00017670 

00017680 

00017690 

00017700 

00017710 

00017720 

00017730 

00017740 

00017750 

00017760 

00017770 

00017780 

00017790 

00017800 

00017810 

00017820 

00017830 

00017840 

00017850 

00017860 

00017870 

00017880 

00017890 

00017900 

00017910 

00017920 

00017930 

00017940 

00017950 

00017960 

00017970 

00017980 

10017990 

00018000 

00018010 

00018020 

00018030 

00018040 

00016050 

00018060 





TC2= < TAN2< I J-D^OYl / < 1 •+OXOY»T AN2 ‘ I » ) /3* 

XR( IS+2)=XR( lS+3)+DX/3,+DY*TCl 
VR( IS+2)=VR( IS+3)+OY/3 *-DX*Tc1 
ZR( IS+2)=^RU3+3>+DZ/3. 

XR( IS+1>=XR( IS+31+TTH*DX-DY*TC2 
YR( IS+1 )=YRns+3)+TTH*DY+DX*TC2 
ZR( rS+l)*ZRl IS+3)+TTH*DZ 
140 IS=IS+4 

C# CALC XR»YR*ZR FOR TRAILING YORTICEi» 

DT1=TAN1(NVC)/WNVT 
D'T2=TAN2INVC)/WNVT 
, T'ANK l )*TANX{NVCJ-DT1 


00018070 
00018080 
00018090 
00018100 
000181 10 
00018120 
00018130 
00018140 
00018150 
00018160 
00018170 
00018180 


TAN2( lI«TAN2(NVa-DT2 
DO 150 I=2*NVT 
tank I)»TANKI-ll-DTl 
150 TAN2( n«TAN2( I“1J~DT2 

C “ 

DO 160- I = ltNVT 
DX=XRl IS»-XR( IS+3I 
DY = YR( isl-YR( IS4-3 ) 


00018190 

00018200 

00018210 

00018220 

00018230 

00018240 

00018250 

00018260 


0Z=ZR{ IS)-ZR( lS+3> 


0001 8 2 TO 


DXDY*DX/0Y 00018280 

TC1=(TANI( I )-0XDY)/ll.+0X0Y*TANl( I) )/3. 00018290 

TC2*(TAN2l I )“0XDY)/(1*+0X0Y*TAN2( in/3* >0018300 

XRn5+2)=XR(lS+3)+DX/3*+0V*TCl OOOI 83 IO 

■ ~ YRl lS+2'r=YR( lS+3)+bY/3.-DX*TCi ' 00018320 

ZRtlS+2)=ZR( IS+3I+DZ/3* 00018330 

XR( IS+1)*XR( rs+3I+TTH*DX-DY*TC2 00018340 

YR(IS+l)=YR(IS+3)+TTH*DY+0X*TC2 00018350 

ZR( IS+1)»ZRUS+3> + TTH*DZ OOOI 836 O 

160 IS=lS+4 00018370 


C* CALC CHORDS FOR' WING ROOT SECTION OOOI 838 O 

WPE< 3)=SQRT( (WPEl2)-XR(4M»42+(WPEn>*HWS-YR(4))**2)+WPE<2) 00018390 

WPEI6)=SQRT( IWPE(5)-XR(3) )»*2+(WPE(4)*HWS-YR(3))**2)+WPE<5) OOOI 84 OO 

WPE ( 9 ) »SORT ( t WPE 1 8 ) -XR ( 2 > ) «*2 + ( WPE ( 7) »HWS-YR ( 2 ) 1**2 ) ♦WPE ( 8 > 0001 84 10 

IS*4 00018420 

DO 190 I=2*NVC_ . _ „ _ 00018430 

iS*iS+4 “ 00018440 

WPE(3)=S0RT( (XR< IS-4)-XRUS) )** 2 +tYR( lS-4l-YR<lSn**2)+WPEl3) 00018450 

WPEI6 JaSQRTI <XR( IS-5J-XRI IS-l) ) **2« I YR I IS-5 ) -YR ( IS-1) ) *»2 ) >^WPE ( 6 ) OOOI 846 O 
190 WPE19)=S0RT( (XR IIS-6 )-XR< IS-2) ) »*2n I YR( IS-6 ) -YR ( I S-2 ) )**2)+WPE(9) 00018470 
WPE(3)=SORTMXR( IS)-Xl)»tt2+(YR{ IS)-Y1)**2>+WPEI3) OOOI 848 O 

WPE( 6 l»SQRT UXRl IS-D-XPl >**2+ 1 YR ( IS-1 )-YPl )**2 I+WPEI 6 ) 00018490 



WP£{ 9 ) =iQRT < (XR( I S-2 ) -XP2 )**2+ < YR < I S-2 ) -YP2 ) *#2 ) +WP£ ( 9 > 
C* COMPRESS. EFFECT ON WiNG ROOT f ARAMETERS 

1S=4*(NVC+NVT) 

IF{BETA.Ea*l. ) GO TO 196 
DO 192 I*1«IS 
YR( n = YR< I)*BETA 
192 ZR( n=ZR( n*8ETA 
c shift ANS* 

196 IFdST.EQ.O) GO TO 220 
IX=0 

00 200 I=1*IS.A 
IC=I+603 
DO 200 J=l*4 
IX*IX+1 
XR(10 = XR(IX) 

YRriCJ=YR(IX> 

ZRl IC)=ZR{ IXI 
200 IC»IC-1 

C* CALC CONTROL POINTS AT SPECIFIED WJC AND WJS 

IS = 90 

00 210 IJS»1»NJS 
IY*WJS( US) 

IE=IY-NE3 

IF(IE*LE.3) 60 TO 210 
IF( IE.GT.6) 60 TO 210 
DO 205 UC=1*NJC 
IX=WJC( IJC) 

IC*4*lX+IE+597 

IS*IS+1 

X0< IS»»(XR< IC)+XR( IC+1)+XR< IC-A»+XR( IC-3) )/A, 

YD( IS)*( YRUC) + YR( IC+1)+YR( IC~4) + YR( IC-3))/4. 

205 Z0US)*(2R( IC)+ZR( IC+1)+ZR< IC-A)+ZR< IC-3))/4. 

210 CONTINUE 

WPT( IXX+2)*WPE(3I 
WPT( IXX-1)=WPE(6) 

WPT( IXX-4)=WPE(9 J 
GO TO 300_ 

220 IS*0 

DO 230 USsltNJS 
IY=WJS(IJS) 

IE»IY-NE3 

IFUE.LE-O) go TO 230 
IF( IE.GT.3) GO TO 230 


00018500 

00018510 

00018520 

00018530 

00018540 

00018550 

00018560 

00018570 

00018580 

00018590 

00018600 

10018610 

00018620 

00018630 

00018640 

00018650 

00018660 

00018670 

00018680 

00018690 

00018700 

00018710 

00018720 

00018730 

00018740 

00018750 

00018760 

00018770 

00018780 

00018790 

00018800 

00018810 

00018820 

00018830 

00018840 

00018850 

00018860 

00018870 

00018880 

00018890 

00018900 

00018910 

00018920 



n n . n non 


00 225 IJC=1*NJC 
IX»WJC(IJC> 
ic=A*ix-frie 
IS*IS+l 

XD( IS) = {XR( IC)+XR( IC+1)+XR( IC-<^)-fXR{ IC-3) )/4. 

YDt ISJ=(YR{ IC)+YR( IC+1)+YR( IC-4)+YR( IC-3) »/4. 

ZOi IS>*(^R{ ^C)+^R( rC+U+ZR< IC-4)+ZR( IC-3) J /A, 

continue 

WPT( IXX+5)=WPE( 3) 

WPT( lXX-t>8)sWPE(6) 

WPT( IXX-Hl)=WPEi9) 

RETURN 

6NP 

RTwr*^ - - 

SUBROUTINE RTWI 

rotate WING ROOT COORDINATES To THE ACTUAL CHORD 


COMMON /DAT/ DA I 5000) 

D I MENS I 0N“ we T ( I ) * T W I ( I ) * T DZL I I ) *DZLE ( 52 ) » EX ( 52 ) 
equivalence (DA(731) *WET) »(DA< 1970) »Twn 


f <DA(1985 


COMMON/CRG/ PI »PI4 *RC »BETA 

COMMON/CFG/ IOB»IDF 

COMMON/CPW/ HWS*NTI »NT0»DLI tOLO*NE2 *NE3 *NE5 *NTB »NU»NW »NVC 


LARGE 


DMlt5I700)*EV{52) ♦0M2J7144) 


•XBl (600) 

.ZB1C600) 

*ET(52) 

*COSTT(52) 

»XB(600) 

«ZB(600) 


»XB2< 600) 

♦ ZB2(600)' 

*x ■ 

♦SINTT(52) 
*Xb 11600)" 
>ZBI(600) 


•XB3(600) 

♦ ZB3(6001. 
♦0M5(6722) 
•COSTV(52) 
"*XBR(600)' 
*ZBR(600) 


»DM3(1800) 
♦DM4 (200) 

♦SINTV(52) 


lookup FOR TWIST ” ' 

NEW=DA(730) 

NVSH-NEZ^Jl __ 

CALL 'twist (NEW tWETiW ♦N)?SHfEVfCOSTV 1" 

CALL TWIST (NEWfWETtTWl ♦NVSHfET^COSTTtSlNTT) 
LOOKUP FOR DZLE AT TRAIL VORTICES 
IF<NEW*LT*1) new=i 
DO 5 I»1*NVSH 
EXU)=ET( I) 


00018930 
00018940 
00018950 
00018960 
00018970 
00018980 
00018990 
00019000 
00019010 
00019020 
00019030 
00019040 
0001 ^ 0 ^/ 
00019050 
00019060 
00019070 
LlNES.00019080 
00019090 
00019100 
00019110" 
) ♦TDZL)0OO19 i20 
00019130 
00019140 
00019150 
00019160 
00019170 
00019180 
00019190 
00019200 
00019210 
00019220 
00019230 
, 00019240 
00019250 
00019260 
00019270 
00019280 
00019290 
10019300 
00019310 
00019320 
00019330 
00019340 



CALL COD <NEW»WETtToZL»NVSH*EX»O^LE) 
DO 10 I=l*NVSH 

IF(DA(730),LT#1.0) DZLE{I)=0.0 
10 DZLE( 1)*DZLE( n*BETA 

ROTATE XB AND ZB 

NES«NE5 

NEE=NE2 

IF( IDF.EQ.O) GO TO 40 
NE4=NE3-»-7 
NE6«NE3+3 
DZLE(NE6)=0»0 
. COSTT(NE6J»1.0 
SINTT(NE6>*0*0 
NVO=NVC+NTO 
nvi«nvc+nti 
IS=0 

DO 20 IXsI»NVO 
00 20 1E*NE3»NE6 
ISalS+1 

0XX»XB1US)-XlT( TEJ 

XB< IS1»XlT( IE)+0XX*C0STT( IE) 

20 ZB(IS»*ZB1(IS)-0XX*SINTT( IE)>DZlE( IE) 

NEX«NE3+4 

0ZLE(NEX)»0«0 

C0STT(NEX)»1#0 

SlNTT(NEX)»0*0 

IS»0 

DO 30 IX^ItNVI 
DO 30 IE«NEX*NE4 

is=is-«-i 

0XX=XB2t IS)-XLT( IE) 

XBK IS)»XLT( IE)+DXX*C0STT( IE) 

30 ZBH IS)=ZB2< IS)-DXX#5InTT( IE)+0ZLE( IE) 

NES»NES+1 

NEE»NEE-»-1 

40 IF(IDB«Ea»6) GO TO 80 

nvo»nvc+ntb 

DZlE(NEE)=0«0 

C0STT(NEE)*1.0 

StNTT(NEE)*0«0 

IS*0 


00019350 

00019360 

00019370 

00019380 

00019390 

00019400 

00019410 

00019420 

00019430 

00019440 

00019450 

00019460 

00019470 

00019480 

00019490 

00019500 

00019510 

00019520 

00019530 

00019540 

00019550 

00019560 

00019570 

00019580 

00019590 

00019600 

>0019610 

00019620 

00019630 

00019640 

00019650 

00019660 

00019670 

00019680 

00019690 

00019700 

00019710 

00019720 

00019730 

00019740 

00019750 

00019760 

00019770 



n n 


DO 60 1X=1*NV0 
DO 60 IE®NEStNEE 
IS«IS+1 

0XX=XB3( IS)-XLT( lEl 
XBR(IS)»XLTnE>+DXX#COSTTUE) 

60 iBRnS)»ZB3(ISJ-DXX*SINTT(IE)+DZLE( lEI 
C 

80 CONTINUE 

C LOOKUP FOR D2LE AT CENTER OF VORTICES 

DO 85 I«1«NVSH 
85 EXII)*EV(n 

CALL COD INE>«<*WET*Td2l*NVSh*EX*D^LEI 
DO 90 I»1*NVSH 

■ ■ IF(DA(730)VLT*1*0» DZLE(l)=0-0 - - 

90 SlNTTm*OZLE( I ) 

RErORN 

END ■ ■ - ■■■■'" ■ 

»DECK TWIST 

SUBROUTINE TWiST ( NE I »E I »T I *NEO*EO»CT *ST ) 

C' . . 

C# LOOKUP TWIST ANGLE ANOCALC COS AND SIN OF TWIST 

C 

large EO(l>VCT(i>*ST(l) 

DIMENSION EII1>*TI(1) 


00 60 I*1#NE0 
IFINEI.NE.OI GO TO 5 
CT(T)=1.0 
ST( n*o«o 
60 TO 60 

5 EtA»ABS(EO( n ) ' 

ifieta,gt*ei( in go to lo 

TW*TnU 
GO TO 50 
10 DO 20 J»2»NEI 

_ IF(ETA-EIUn_40»30*2^ 

20 CONTINUE “ ‘ 

TW»TI(NEI) 

GO TO 50 
30 TW*Tltj) 

GO TO 50 

40 RATY» I El U)-ETA)/( El (J)-EHJ-in 


00019780 
00019790 
00019800 
00pl98l0 
00019820 
00019830 
00019840 
00019850 
00019860 
00019870 
00019880 
00019890 
00019900 
00019910 
>0019920 
00019930 
000 19940 
00019950 
00019960 
00019970 
00019980 
00019990 
00020000 
00020010 
00020020 
00020030 
00020040 
00020050 
00020060 
00020070 
00020080 
00020090 
00020100 
00020110 
00020120 
00020130 
00020140 
00020150 
00020160 
00020170 
00020180 
00020190 
00020200 



TW*Tl(J)-RATY*(TI(JJ“Tn J-1) > 00020210 

50 CT( n=C0S(TW) 00020220 

ST( n’SiNdWl J0020230 

60 CONTINUE 000202^0 

RETURN 00020250 

end 00020260 

#DECK MATCS 00020270 

SUBROUTINE MATCS 00020280 

C 00020290 


C# 

C 

C 

C 


C 


C 


C* 

C 


CALC MATRICES C AND S 
COMMON/DAT/ OA(5000J 
DIMENSION WHO) 

EQUIVALENCE <DA(1285)*W) *(NI*NVC) » ( DA ( 1281 ) *WNW) 

1*( DAI 1960) ♦OAF) ♦< DAI 1961 ) .PXCF) > ( DA 1 1965 ) *DAK ) * I DA 1 1966 ) *PXCK ) 
2^I0AI21 ♦WS) 

COMMON/CRO/ PI tPIAtRCtBETA 
COMMON/CPW/ DWH9) ♦NU»NWtNVC»NVS 

COMMON/CFK/ NDA»NUTfTHEFtSlNTF*SlNTF2*COSTFfTHEKtSlNTK»S INTK2 
I ♦COSTKtSlNDF^COSDF*SlNDK*COSD< 


00020300 

00020310 

00020320 

00020330 

000203A0 

00020350 

00020360 

00020370 

00020380 

00020390 

00020400 

00020410 

00020420 

00020430 

00020440 


LARGE B0UI3000) fFUSl 25000) »FANl23700) fEVI 52 ) 

1 ♦CFH50) ♦CFJI50) »STh(50) »ACT(50) 

2 ♦CI40»40) fSl51»lO) fCSECUOtlO) *DM3(7968) 

3 ♦PYL16061) *CEL<3700) »BCUOtlO) 

CALC matrix C 

flap setup 

NDA«0 

ifidaf«ne*o*o) go to 4 
THEF=0i0 


♦ DMl I 12544)00020450 
♦DM2 (156) 00020460 

00020470 
00020480 
00020490 
00020500 
00020510 
00020520 
00020530 


SINTF«0#0 
SINTF2*0*0 
60 TO 10 
4 N0A«1 

C0STF«r.-2.»PXCF 
THEF» ACOSICOSTF) 
SINTF»SIN(THEF) 
SINTF2»SINI2.»THEF) 
SiNDFsSiNi DAF) 
C0SDF»C0SIDAF) 


00020540 

00020550 

00020560 

00020570 

00020580 

00020590 

00020600 

00020610 

00020620 

00020630 



NUS»NU-1 

IFt0AK*EQ*0,0) NUS»NU 
eC( l*NUS)=SINTF/2. 
PIT»THEF“PI 
DO 5 1»2*NI 

IFITHEF*LE.ACT( I) ) GO TO 6 

5 BC ( I • NUS ) =P I T 

6 KF*I 

DO 8 J=KF»NI 
a BC< J*NUS)=THEF 

KRUEGER SETUP 

10 IF«DAK*NE»0,0) GO TO 12 
TH£K=0.0 

sintk«o*o ■' 

SINTK2»0*0 
GO 'To 20 
12 N0A*NDA+1 

C0STK»I.-2**PXCK 

THEK= ACOStCOSTK) 

SINTk*SIN(THEK) 

SINTk2=SINI2.*THEKI 

SINDK*SlNtDAK) 

C0SDK»C0S(DAK) 

BC(l«NU)*SlNTK/2. 

P1T»THEK’PI 

DO 14 1=2. NI 

IF(THEk.LT.ACT( I M GO TO 16 
14 BC( I»NU>=PIT 
16 KK*I 

DO 18 J»KK*NI 
18 BCt J*NU)=THEK 
20 NUT*NU-NDA 

XI*0.0 

DO 22 I =2 .NUT 
XI*XI+1. 

BC(itn=o.o_ 

66 2r'j»2.Nl 

22 BCt J*n=-COS<Xl»ACT( J) > 
BC(1.2)»«25 
DO 24 1=1 »NI 

c(i»n=i. 

BC(i*n = i. 


00020640 
00020650 
00020660 
00020670 
00020680 
00020690 
00020700 
00020710 
00020720 
00020730 
00020740 
00020750 
00020760 
00020770 
00020780 
0002 0790 
00020800 
00020810 
00020820 
00020830 
00020840 
00020850 
00020860 
00020870 
00020880 
00020890 
00020900 
00020910 
00020920 
J0020930 
00020940 
00020950 
00020960 
00020970 
00020980 
00020990 
00021000 
00021010 
00021020 
00021030 
00021040 
00021050 
00021060 



H 

00 

-P* 


DO 24 J=2*NI 

24 CU*n*l*/(CFJ( J)-CFI U M 
BC( 1»1 )>•& 

CALL MSOLX (NI »NI *NUtC»8C»40) 

C* CALC matrix CSEC 

DO 40 1=1 #NU 
CSEC(1*I J=c(i»n*ws 
DO 40 K*2*NVC 

40 csEC(Ktn»ciK*n«ws+csEC(x-i*n 

c 

IF(WNW.EQ*0*0) GO TO 200 
C* CALC MATRIX S 

NEV=INVS+1)/2 
DO 160 I=ltNW 
LsW( I ) 

IFfL*LT*1000) GO TO 100 
call PFUNC n*NEV»EV*W»S) 

GO TO 150 
100 DO 140 J=1*NEV 
ETA*EV(J) 

IF(ETA«GT*0«0000001 ) GO TO 130 

if(l»eo«o) go to 12o 

s(J»n*o.o 

GO TO 140 

120 s(j>n»i«o 

GO TO 140 

130 S< J*n=S0RT(l*~ETA»*2)*ETA**L 

140 CONTINUE 

150 SI 1*1 )»4**S( 1 »n 

160 CONTINUE 

200 return 

END 

»DECK WTZCS 

subroutine WTZCS 

c 

c* CALC* THICKNESS SLOPESFROM DEFLECTIONS tZ/O* 

C 

COMMON/OAT/ OA(5000) 

C 

DIMENSION WJCI30) tEDI 19) *X0CD(24) *TZC<750) 

equivalence I 0A< 2001 ) »X0CD) * (DAI2026) »ED) ♦ ( DA 1 2050 ) * TZc ) 

1>INI»NVC) *INEP*NJS) *INJ»NJC) » I DA 1 1660 ) ♦ W JC ) 


00021070 
00021080 
00021090 
00021100 
00021110 
00021120 
00021130 
00021140 
00021150 
00021160 
00021170 
00021180 
00021190 
00021200 
00021210 
00021220 
00021230 
>0021240 
00021250 
00021260 
00021270 
00021200 
00021290 
00021300 
00021310 
0002132.0 
00021330 
00021340 
00021350 
00021360 
00021370 
00021380 
00021390 
00021400 
00021410 
00021420 
00021430 
00021440 ' 
00021450 
00021460 
00021470 
00021480 
00021490 



c 

c 


COMMON/CPW/ HWS»NTI tNTOfDLl ♦0L0»NE2 *NE3»DW1 ( 4 ) *nVC *NVS»N JC »N JS 


large BOUOOOO) .FUS( 25000 ) »FAN( 23700) 

1»EV(52) .XLV(52) *XTLV(52) tDPl(840) 

2 »EP(30) tXTLPOO) ♦XQCP(30) 

3 *CSJ(30*30) *TSJ(30»30) »DM1(9000) 

4 *CFI(50) ♦CFJ(50) *DM212766) 

5 .TSI(52*A0)iTZI(52t40) »DM3(3808) 

6 tCHD(24) »Z0(24) »ZCJC50) 

7 »ZI(50*20) *EL<20) »X0CL(24) 


♦WPT(60) 


,PYL<6061 ) 
»ZCH 50) 


.BS(650) 


»CEL( 3700) 
»ZJ(50»20) 


C 

C» 


C* 


00 

VJ1 


c 

c 


INITIAL 

L0«0 

NDE=DA(2025 ) 

NXb*DA(2000) 

SHIFT TO LCM FOR WINGD AND COOIM 
DO 10 l*ltNDE 
10 EL( H=EO( I ) 

DO 20 I=1*NXD 

20 xocn n=xoco<n 

CALL WINGD IN0E*EL*Z0*CH0*WPT ) 

Nll-Nl+1 
CFJINII )*1# 

DO 100 I»1»NDE 
30 DO ,40 IX=1.NXD 
L0»L0+1 

40 ZDnX)sTZC<LD)*CHO<I) 

call CODIM (XOCL»iD*NXD»CFJ*ZCJ»NIl) 

CALL CODIM (XOCL*ZD*NXO*CFI *ZCI »NI) 

DO 60 )C»1*NI 

ZJ(K»n=ZCJ(K> 

60 Z1 (Kf I)»ZCI no 

ZJ(NIl»I)=ZCvHNll)_ 

100 CONtlNUE ' 

_ LINEAR INTERPOLATION FOR 2/C SPANWISE AND CALC SLOPE 

'do 200 ft* If NEP ■ '■ ' 

IF(EP( IE) .GT#ED( IN GO TO 120 
11=1 

GO TO 140 

120 Do 130 IS=2*nDE 
ir=is 


00021500 

00021510 

00021520 

00021530 

00021540 

)0021550 

00021560 

00021570 

00021580 

00021590 

00021600 

00021610 

00021620 

00021630 

00021640 

00021650 

00021660 

00021670 

00021680 

00021690 

00021700 

00021710 

00021720 

00021730 

00021740 

00021750 

00021760 

00021770 

00021780 

00021790 

00021800 

00021810 

00021820 

00021830 

00021840 

00021850 

00021860 

00021870 

00021880 

00021890 

00021900 

00021910 

00021920 



CD 

ON 


IFJEPl IE)-EDt IS) ) 150»140tl30 
130 CONTINUE 
140 DO 145 J»1»NJ 
IC*WJCt J)+l. 

145 Tsj( ie*ji = ( 2 i ( ic»in-zi nc-i»i I ) )/(CF I no -CF I (ic-1) )/xtlp<ie) 

GO TO 200 

150 RATY= (ED( I I )-EP( IE ) )/<ED( I n~ED( I I-l) ) 

160 DO 170 J=1.NJ 
IC=WJC(J)+1* 

ziazn ic~i*ii )-RATY*(zi ( ic~i*i n-zi( ic-i.n-1) ) 

Z2=zn IC»I I )~RATY#1ZI{ I C » 1 1 ) -Z I ( IC s II-l) ) 

170 TSJ( IE*J) = (Z2~Zl )/<CFI I lO-CFI C IC-1 ) )/XTLPUE) 

200 CONTINUE 

DO 300 IE* 1 »NE 2 
IF(EVne)*GT.EDC 1) ) 60 TO 220 
II»l 

GO TO 240 

220 00 230 IS=2*N0E 
I I = IS 

IF(EV( IE)-E0( ISn 250.240*230 
230 CONTINUE 
240 DO 245 I=1*NI 

TZI ( lE.n^Zn I* I I) 

245 TSl ( IE»n*(Zjl 1 + 1 . I I )-ZJ( I > 1 1 ) )/(CFj( I+l )-CFj( I ) ) 

GO TO 300 

250 RATY»(EDt II )-EV(IE) ) / <ED(I I )-ED( II-l ) ) 

260 DO 270 1=1*NI 

Z1*ZJ( I*in-RATY*(ZJ( I.in-ZJU.II-1) ) 

Z2»ZJ( I-H*IH-RATY*IZJ( I + l » U )-ZJt 1 + 1 ♦ II-l > ) 

TZI ( IE*I)=ZI ( I»in~RATY*{ZItI.II)->Zin.II-l)) 

270 Tsn IE*I )»<Z2-Z1) / (CFJ( I + D-CFJI I ) ) 

300 CONTINUE 
LT=NE2+1 
DO 320 I*1«NI 
TZI (LT*I)=ZI (I.NDE) 

320 TSULT.n»(Zj( I + 1 .NDE )-Z J ( I tNDE) )/(CFj( I + 1)-CFJ( I ) ) 

RETURN 

END 

♦DECK PXYZ 

subroutine PXYZ (nvx»nov»nvbp*fox»fvx*xb»yb»zb) 
c 


00021930 

00021940 

00021950 

00021960 

00021970 

00021980 

00021990 

00022000 

00022010 

00022020 

00022030 

00022040 

00022050 

00022060 

00022070 

00022080 

00022090 

00022100 

00022110 

00022120 

00022130 

00022140 

00022150 

00022160 

00022170 

00022180 

00022190 

00022200 

00022210 

00022220 

00022230 

90022240 

>0022250 

00022260 

00022270 

00022280 

00022290 

00022300 

00022310 

00022320 

00022330 


C* 


CALC, coordinates OF PYLON VORTICES AND CONTROL POINTS 00022340 


C 


00022350 



00 ->i O' vj» UJ rs> 


5 


c 

c 

c 

c 


c 

c* 


c 


COMMON/ DAT/ DAtSOOO) 

DIMENSION PPT(1J»FVX(1)»PJC( U 

large 

equivalence <DAI2490»*ATP> 

1*10A(25CK)J »PHT) * ( DAl 2501 ) »POX ) 
2»(DAI2507) *PNVC) *(0A<2508>*PNVS) 


*IDA(2A91) tpITH) ♦IDA42492> *PDA) 
•(DAI2502) *POY) » ( OA ( 2 503 ) »P0^ I 
*<0A<2512) *PJC1 *<0A42960) »PPT> 


COMMON /CRG/ 
COMMON/CPP/ 

large 


PI .PlA.RC.BETAtSlNOPtCOSOP 

HPS*NVSH»NVT.OL*NEVP*ZCON»YCOf *NVCfNVS»NJC»NuP 


1 


DMli75130) 
.EV(22J 
«XO(60) 
tXRIAOO) 
tCFI(20» 
•ETI22) 
»DM2(2980) 
fXRFi 50) 
t8C(20»10) 


*XLV< 22) 

♦YDI60) 

»YR(AOO) 

♦CFJI20) 

»XLT(22) 


*XTLV(22) 

♦^D(60) 

»ZR(4001 

»STH(20) 

«XTLT(22) 


♦CSEC(21tlO) tOM3(840) 
*YRF( 50) ' »2RFi50) 


.WPE439) 


♦ACT120) 
*C(20*20) 
*CEL< 3700) 
tTANlllSO) 


»TAN2< 150) 


00022360 

00022370 

00022380 

00022390 

00022400 

00022410 

00022420 

00022430 

00022440 

00022450 

00022460 

00022470 

00022480 

00022490 

00022500 

00022510 

00022520 

00022530 

00022540 

00022550 

)0022560 


START 

DTH*PI/PNVC 

0TH2*0TH/2« 

TH»DTH2" ' 

DO 2 I«1*NVC 

CFI ( I )»*5*< 1*-C0S( TH) ) 

STH( I )sSlN( TH) 

ACT( n«TH-DTH2 

CFJ( I )*.5*4 1#-C0S< ACTU ) ) ) 

2 TH«TH+0TH 

calc. CHOROWISE LOAD COEFF. 

XI*0.0 

00 4 I-2.NUP 
XI»XI+1* 

BCI1»I )„»0,0_ 

DO 4 J«2tNVC 


00022570 

00022580 

00022590 

00022600 

00022610 

00022620 

00022630 

00022640 

00022650 

00022660 

00022670 

00022680 

00022690 

00022700 

00022710 

00022720 

00022730* 


4 BC( J» I )»-COS<XI*ACT( jn 
BC(1*2)«.25 
DO 6 1 » 1 *NVC 
C(1.I)»1. 

BC(Itl)=l. 


00022740 

00022750 

00022760 

00022770 

00022780 



DO 6 J*2*NVC 

C( J«I )*1*/(CFJ( J)-CFI( I ) » 

BCa*l) = *5 

CALL MSOUX <NVC*NVC*NUP 1.C *BC»20) 

SPAN=PHT+PHT 
DO 8 I=1«NUP 

csec( 1*1 >sC(i*n-frSPAN 

DO 8 K“2*NVC 

CSEC(K*n*C(K«n»SPAN-»-CSEC< K-1 * I ) 

SHIFT PYLON PLANFORM TABLE 

HPS=PHT 

00 10 l=l»3T®3 
WPEJ nsPPTI S ) 

WPE4 I+D^PPII J + 1 ) 

WPF( I+2)=PPT( 1+2) 

IFiPPTU ) .GE»lo ) GO TO 12 

CONTINUE 

NPP»I-2 

CALC VORTEX LATTICE SPACE SPANWISE 
DL*I 1«-WPEI 10) )/ (PNVS-3.5) 

NEVP»NVS-3 

EV(NEVP+1 )*(WPE( 10)+WPE<7J )/2. 

EV(NEVP+2)»IWPEi 7)+WPE(4) )/2. 

EVCNEVP+3)*IWPE( 4 ) +WPE ( 1 ) ) /2« 

!-V(2)»l*-0L 
FVa)»EVl2) + .ft25»DL 
ETIl)»l.-DL/2. 

ET<2)*ET(1 )-0L 
DO 40 I»3*NEVP 
ETC ll*ET( I-D-OL 
EVm»EV{ I-D-DL 
NVSHSNVS+I 
EV(NV5H)»1«0 

CALL WINGO (NEVP*ET*XLT*XTlT»WPE) 

TEST WING PLANFORM FOR NACELLE TYPE BREAK 
DO 44 I*1»NPP*3 

IFIABSIWPEU )-WPE{ 1+3)) •GToOoOl) GO TO 44 
DO 42 J=l*NEVP 

IF4ABSIWPE( n*-ET( J) ) *GT*0«005) GO TO 42 
ETI J)*-ET( J) 

XLTI J)»DA( I+l ) 

XTLT( J) = DAi I-t-2)-DA4 I + l) 


00022790 

00022800 

00022810 

00022020 

00022830 

00022840 

00022850 

00022860 

>0022870 

00022380 

00022890 

00022900 

00022910 

00022920 

00022930 

00022940 

00022950 

00022960 

00022970 

00022980 

00022990 

00023000 

00023010 

00023020 

00023030 

00023040 

00023050 

00023060 

00023070 

00023080 

00023090 

00023100 

00023110 

00023120 

00023130 

00023140 

00023150 

00023160 

00023170 

00023180 

00023190 

00023200 

00023210 



h2 CONTI NUt 
44 CONT I NUE 
C 

IF(ATP*EO*3*0) 60 TO 102 
C* SEARCH LIST OF FUSELAGE 

00 So I=ltNVX 
FVXTafVX ( I ) +FOX-POX 
IF(WPE(2) .LT.FVXT) go TO 60 

SO continue 

60 IS* I 

00 70 I=1S*NVX 
FVXT»FVXJ I )+FOX-POX 
IF (WPE( 3 J •LT.FVXT) GO TO 90 
70 CONTINUE 
C 

C* SHIFT VORTEX COORO 

90 IE*I 

ITV*PITH-1.0 

IC=( IS-2»»NV0P+2+ITV*NOV 
IC1*IC-NVBP 
IFUC1.LE*0> IC1=IC 
NPT»1£-IS+2 
00 92 I»ltNPT 

S X0( I)»XBUCl)~POX 

YpsYBUCl J/BETA-POY 
ZPaZanCl)/BETA-PO^ 

YOU ) »YP*S I NDP+ZP»C0S0P 
ZD ( 1 ) »ZP*S I NDP-YP*COSDP 
92 IC1=ICI+NVBP 

C0=WPE(3)-WPE(2) 

DO 94 I»1*NVC 

94 XRF( n=WPE(2»+CD*CFI< n 

call CoOIM {XO*YDfNPT*XRF*YRF*NVC) 
CALL CODIM (XD#ZD*NPT*XRF»ZRF*NVC) 
IS*0 

00 96 I'ltNVC 

lS»IS+4 . _ _ . 

XRdSiaXRFin 

YR( IS)*YRF< n 
96 ZR< IS)»ZRF( I ) 

XRS‘XR(IS> 

NVT-NVX-IE+1 

IC=IC1-NVBP 


00023220 
0002.3230 
00023240 
000232SO 

X FOR XLE AND XTE OF rtiNG ROOT 00023260 

00023270 
.00023280 
00023290 
00023300 
00023310 
00023320 
00023330 
00023340 
00023350 
00023360 

OF FUSELAGE TO THE MERGING ROOT 00023370 

00023380 
00023390 
00023400 
00023410 
00023420 
00023430 
00023440 
000234S0 
00023460 
00023470 
00023480 
00023490 
00023500 
00023510 
00023520 
00023530 
00023540 
00023550 
00023560 
10023570 
00023580 
00023590 
00023600 
00023610 
00023620 
00023630 
00023640 



H* 

VO 

O 


DO 100 1:^1«NVT 
IS=IS+^ 

XR( IS»*XB( ICJ~POX 
YP=YB< lO/BETA-POY 
ZP=ZB( 1C)/BETA“P0Z 
YRt IS >sYP«SINDP-»-ZP»COSDP 
ZR< ISJ«ZP»SINDP-VP»C0SDP 
100 IC=IC-«-NVBP 
GO TO 108 

C PYLON ATTACH To WING 

102 CO=WPE«3HWP£{2f 
YPsWPEI 1)<^HPS 
IS«0 

DO 10^ I«1*NVC 
I S® I 

XRT IS S aWPE 1 2 ) ^CO^CF U IJ 
YR< ISS*YP 
104 ZR( ISMOsO 
XRS«XR( IS) 

DX«XRS-XR( IS-4) 

NVT“2 

DO 106 I®I«NVT 
IS»lS+4 

XR( IS1»XRt IS-4)+DX 
YRtlS)*YP 
106 ZR(IS)®0*0 
C 

C« CALC VORTEX COORD® OF MERGING ROOT TO PLANAR WING 

108 ZCON®0*0 

YCON=HPS»WPE< 10) 

XREaXRdSJ 

WNVT-NVT 

C0»WPE< 12)-WPE< 11) 

IS»-3 

DO 110 I=1*NVC 
lS«IS+4 

XR(is)=wpE(ii)+co*cf K n , 

YR ns )*YCON 
no ZR(IS)=ZC0N 
XRR>XR(1S) 

DXF»XRE-XRS 
OXR=XRE~XRR 
DO 120 I=1*NVT 


00023660 

00023660 

00023670 

00023680 

00023690 

00023700 

00023710 

00023720 

00023730 

00023740 

00023760 

00023760 

00023770 

00023780 

00023790 

00023800 

00023B10 

00023820 

00023830 

00023840 

00023860 

00023860 

00023870 

>0023880 

00023890 

00023900 

000213910 

00023920 

00023930 

00023940 

00023950 

00023960 

00023970 

00023980 

00023990 

00024000 

00024010 

00024020 

00024030 

00024040 

00024050 

00024060 

00024070 



r\ n 


lS=lS+4 

XR< IS» = (XR< lS-f3)-XRS) /DXF*OXR+XRR 
VR(IS>«YCON 
120 ZR(IS)«ZC0N 


* CALC COORD* OF THE TWO CENTER ROOT VORTEX LINES 

IXaA*NVC 
X1»WPE(3> 

Y1»(YR( !X)+YR< IX+4) J/2* 

X2>WPE(12) 

Y2=YC0N 
DX*X2~X1 
0Y»Y2“Y1 

DZ=ZCON-IZR( IX)-f2RtIX+4) )/2* 

SQd«SQRT ( OX*«2+OY**2+DZ»*2 ) 

XP1»X1+OX/3.-WPE<6)*OY/SQD 
YPl*Yl+DY/3*+WPE(6)»DX/SQD 
XP2*X1+TTH»DX~WPE(9)*DY/S0D 
YP2»Y1+TTH»DY+WPE( 9)*DX/SQD 
TTl»(XPl-Xl)/( YPX-YU 
TT2»(X2-XP2 »/< Y2-YP2) 

DYa(WPE<4)-WPEaM*HPS 
TL1*( WPEt5)-WPEl2) >/DY 
TL2»(WPE(11 )-WPE(8) )/0Y 

■ c 

oti*<tt:-tli)/pnvc 

DT2*1TT2-TL2)/PNVC 
TANK l)=TLl+DTi/2. 

TAN2m»TL2+0T2/2. 

00 130 I»2*NVC„ 

TANK r)*TANl( i-i)+0Ti 
130 TAN2( n*TAN2U-l »-^0T2 
C 

iS“i ^ ' 

DO 140 I*1»NVC 
0X*XRUS)-XR( IS+^J 

0Y»YR( ISf-YRnS^^ - 

DZ«ZRnS>-ZR( IS+3) 

DX0Y«DX/DY 

TCl*iTANll n-0X0Y)/U*+0X0Y#TANK I))/3* 

TC2= t TAN2 ( I ) -DXDY ) / ( 1 *+DXDY*T AN2 ( I > ) /3 • 

XR( IS-»-2)«XR( IS+3»+DX/3.+DY*TCl 


00024080 

00024090 

00024100 

00024110 

00024120 

00024130 

00024140 

00024150 

00024160 

00024170 

00024180 

10024190 

00024200 

00024210 

00024220 

00024230 

00024240 

00024250 

00024260 

00024270 

00024260 

00024290 

00024300 

00024310 

00024320 

00024330 

00024340 

00024350 

00024360 

00024370 

00024380 

00024390 

00024400 

00024410 

00024420 

00024430 

00024440 

00024450' 

00024460 

00024470 

00024480 

00024490 

0O024S0O 



VR{ IS-6-21 ®VR4 IS<-3 KDV/3o-DX*TCl 
28 C !S<8-2I®2RUS<>3S'0>OZ/3 o 
SRCIS- s-l Js=S8( lS-«-3KTfH*OX-DY«TC2 
YR< lS+1 !®VR« IS-s-SS-S-TTH^DY^DX^TCa 
2R{ IS->1 >sZR( IS+SJ-o-TTH^DZ 
140 IS=lS+4 

C» CALC KRsYRoZR FOR TRAILING VORTICES 

DTl»TANUNVO/WNVT 
DT2*TAN2CNVCJ/WNVT 
TANm)=TANl<NVC>-OTl 
TAN24 I )aTAN2(NVCS-DT2 
DO 150 I=2»NVT 
TANIU } = TANIU-U"DT1 
150 TAW2U I = TAN2U-1 )~DT2 
C 

DO 160 I»l9WVT 

ISI-XR5 IS+3I 
IS)~VR( !S+3> 

DZsZgS IS5-2RUS-5-3J 

dxdv®dx/dy 

TCissJTAKll U 5=-DXDV }/ 1 1 o-^DXDYoTAWl < I H / 3o 
TTC2 r([TAM 2« I l-»DX0YJ/ao<-0X0Y*TAW2( I ) )/3o 
ISo>2IsXR5 1S<-31K-DX/3o<’DY<}TC1 
YR5 ISo2I®VR j |S-s*3S4-OY/3o“OX{>TCl 
28! IS<5-2?»2Ri! iS^SJ-^^OZ/So 
X84 SS^l J=XR(! IS43 !)<-TTH«DX-»DYoTC 2 
V84 IS'M il^YRC IS^3 5->TTH«DV-}-0X*TC2 
2RI IS^llsZRUS+aKTTH^DZ 
160 lS*IS+4 
C 

C* CALC CONTROL POINTS AJ SPECIFIED WJC AND WJS 

rs»o 

DO 180 IY*1#NVS 
IE»IY-WEVP 

IFae«LE*0) GO TO 180 
DO 170 IJC»1*NJC 
IX = PJCUJC> 

IC»4*IX-ME 

IS»IS+1 

XOnS> = (XR( IC)+XR( IC+1 >-fr-XR( IC-4I+XR( 1C~3> )/4© 

YD< I5) = < YR( ICI+YRI lC^-1 >+¥R( IC-4)-J-YR( IC-3) >/4® 

170 ZD(!S)®(ZR( lO+ZRC IC+1 )+2R( IC-4) + ZR{ IC-3I )/4, 

180 CONTINUE 


00024510 

00024520 

00024530 

00024540 

00024550 

00024560 

00024570 

00024580 

00024590 

00024600 

00024610 

00024620 

00024630 

00024640 

00024650 

00024660 

00024670 

00024690 

00024690 

00024700 

00024710 

00024720 

00024730 

00024740 

00024750 

00024760 

00024770 

00024780 

00024790 

00024800 

00024810 

00024620 

00024630 

00024640 

00024850 

00024860 

00024870 

00024680 

^0024690 

00024900 

00024910 

00024920 

00024930 



c# 


190 


c* 


NT0«IS 00024940 

CALC CHORDS FOR WING ROOT SECTION 00024950 

WPE t 3 ) “SORT ( ( WPE ( 2 ) -XR 1 4 > ) **2+ ( WPE ( 1 ) *HPS-YR { 4 )) **2 ) ^‘WPE ( 2 ) 00024960 

WPE(6)=S0RT< (WPE(5)^XR( 3n**2+lWPE(4)#HPS“YR<3) )*#2M-WPE(5) 00024970 

WPE<9)=S0RT( (WPEt8)-XR(2n**2+(WPE(7j*HPS“YR(2n**2)+WPEC8) 00024980 

IS=4 00024990 

DO 190 I=2»NVC 00025000 

IS«IS+4 00025010 

WPE( 3»»S0RT( (XR( IS-4)-XR{ IS) )#*2+(YR( IS-4)-VR< IS) »#»2>+WPE(3) 00025020 

WPE<6)*S0RT( (XR( IS-5)-XR( IS-1 ) ) **2-K YR( IS-5)-YR( IS-1) )**2)+WPE(6) 00025030 
WPE(9)*SQRTJ (XRIIS~6)-XR( IS-2> )**2-M YR( IS-6)-YR( IS-2) )**2)+WPE(9) 00025040 
WPE13)=S0RTUXR( IS)-X1 )*#2+(YR( IS)-Y1)*»2)+WPE(3) 00025050 

WPE(6)=S0RT( (XR( IS-1 )-XPl)**2+{YR( !S-1)-YP1)»*2)+WPE(6) 00025060 

WPE(9 )sSQRT( (XR( I S-2 ) -XP2 )**2+< YR ( I S-2 )-YP2 )**2 >+WPE( 9) 00025070 

COMPRESS* EFFECT ON PYLON ROOT 

TO 200 


192 


194 


200 


IF(B£TA*E0*1*) GO 
Z CON* ICON* BET A 
VCON»yCON*BETA 
IS»4»{NVC+NVT) 

DO 192 I*1*IS 
YRII)«YR( n*0ETA 
ZRl I )*2R( I )*8ETA 
DO 194 I*1*NTD 
YD( I )*Y0( I )*BETA 
ZD(I)=ZD| I)*BETA 
^ FIND X 


leading and CHORD AT ETA V 


CALL WINGD (NVSH*EV*XLV*XTLV.WPE) 
HPS«HPS»BETA 
RETURN 
END 

♦DECK PTZCS 

SUBROUTINE PTZCS 

■G . 

C# 

C 


CALC. THICKNESS SLOPESFROM DEFLECTIONS (Z/C). 


COMMON/OAT/ DA <5000) 

DIMENSION PJC(18) *£0(18) 


equivalence 


(DAOOOl ) tXOCO ) 
•(0A(2512)»PJC) 


• X0CDU9) ♦TZCOAZ) 


*(DA(3021) »ED) »(DA0040) *TZC) 


COMMON/CPP/ HPS*NVSH*DP1(5) *NVC*NVS*NJC 


PARAMETERS00025080 
00025090 
00025100 
00025110 
00025120 
00025130 
00025140 
00025150 
00025160 
00025170 
00025180 
00025190 
)0025200 
00025210 
00025220 
00025230 
00025240 
00025250 
00025260 
00025270 
00025280 
00025290 
00025300 
00025310 
00025320 
00025330 
00025340 
00025350 
00025360 



c 


00025370 

0@0253®0 


■p- 


C 

c 


c 


c 


c 

c 


LARGE 

DM1575130) 

9EV522) 

oXL\/5 22) 

*XTLV(22 ) 

oWPE ( 39 ) 


*DP24 1300) 
*OP35 506) 
®0P4< 2390) 

*CFH20) »CFJ<20) 

oCSJ( 20 * 20 ) *TSJ(20*r.U) 
*TSI ( 21 *20) *T2I (21 *20) 

*CEL( 3700) 

LO^O 

9CH0520I 
*ZC! 520) 
*EL5 20) 

INITIAL 

*ZD( 20) 

®ZJ(20*20) 

*X0CL(20) 

»ZCJl20) 

*ZI(2u*20) 



W0£®0^^i{3020) 

NXD=DA«3000) 

SHIFT TO LCM FOR WlMGO AND CODIH 
DO IQ S®l»MOE 
10 EH n®ED( I > 

DO 20 I“l9NXD 
20 KOa.4 Usx0C0( 1 1 

call fcflWGO JNDEoELeZDoCHOeWPE} 

NI1=MVC<-1 
CFJCN II JsIq 
DO 100 l=l»NDE 
30 DO 4>0 IX'l^NXO 
LD«LD^1 

^0 ZDUXI®TZCiLO)*CHO< n 

call COOIM (X0CL«ZD9NX0»CFJ»ZCJ9Nm 
CALL COOIM UOCL *ZD«NXD*CFI *ZCI «NVC) 

DO 60 K»1»NVC 
ZJ(K» I >*ZCJ(K» 

60 Zl<K«nsZClU) 

ZJ«Nll*n=ZCJCNIl) 

100 continue 

LINEAR INTERPOLATION FOR Z/C SPANWISE AND CALC SLOPE 
DO 200 IE=1*NVS 
IFIEVne)«GT.ED< in go TO 120 

n*i 

GO To lAO 

120 DO 130 rS»2*NOE 
11»I5 

IFIEVI IEI-ED( ISn 150*140*130 


000253^0 

00025^00 

00025410 

00025420 

00025430 

00025440 

00025450 

00025460 

00025470 

00025480 

000254^0 

00025300 

10025510 

00025520 

00025530 

00025540 

00025550 

00025560 

00025570 

00025580 

00025590 

00025600 

00025610 

00025620 

00025630 

00025640 

00025650 

00025660 

00025670 

00025680 

00025690 

00025700 

00025710 

00025720 

00025730 

00025740 

00025750 

00025760 

00025770 

00025780 

00025790 



n n n 


H 

■'O 

vn 


130 CONTINUE 
140 DO 145 J=1*NJC 
IC»PJCU)+1. 

145 TSjnE*J)»{ZinC*II)-ZinC-l.II))/(CFinCJ-CFl(IC-l>)/XTLVUE) 
GO TO 200 

150 RATV»(EDi in-Evnen/iEoun-EDiu-in 
160 DO 170 J»1*NJC 
1C«*PJC( JKl. 

Z1*ZIUC-1 »M I-RATY»<ZI I )-ZI I IC-1 * I I-l » ) 

Z2=ZI UC*i n-RATY*(ZI (ic*in~znic.l I-l) ) 

170 TSJ(IE*j)*(Z2<-Zll/(CFI{IC)-CFI(IC-l))/XTLVnE) 

200 CONTINUE 

NEVH»NVSH-1 

DO 300 IE=1.NEVH 

IFCEVI IE) .GT.EDU) ) GO TO 220 

11 = 1 

GO TO 240 

220 DO 230 IS=2.NDE 
II = IS 

TF<EVUE)-ED( IS) ) 25Ot24U«230 
230 continue 
240 DO 245 I»1.NVC 

Tzn iE.n=zi< i.in 

245 TSIUE*I) = IZJU+1*I n~Zj( 1*11 > )/(CFJU + l)-CFjU n 
GO TO 300 

250 RATY»(F0(M )-EVUE) )/<EOUn-EO( I I~l) ) 

?60 DO 270 I=1.NVC 

Z1»ZJ( I » 1 1 )-RATY*(Zj( I . II )-Zj( 1 .1 1-l ) ) 

Z2»ZJ< 1+1*1 n-RATY*{Zj< 1+1*1 1 )“ZJ< 1 + 1*1 1'ln 
TZ I I I E * I) =Z I ( I * I I) -RATY* ( Z H I * 1 1) -Z I ( I * 1 1- 1 ) ) 

270 TSK IE*I)»(Z2-Z1)/ICFJ( I+1)-CFJ( I ) ) 

300 CONTINUE 

lt=nvsh 

DO 320 I=1*NVC 
TZr<LT*n=ZI( I.NOE) 

320 TSl(LT*I)=<ZJ(I+l*NDE)-Zj(I*NDEn/(CFj(I+l)-CFj( m 
RETURN 
END 

*DEac NXYZ 

SUBROUTINE NXYZ 

* SETUP NACELLE COORDINATES AND PARAMETERS 


00025800 

00025810 

10025820 

00025830 

00025840 

00025850 

00025860 

00025870 

00025860 

00025890 

00025900 

00025910 

00025920 

00025930 

00025940 

00025950 

00025960 

00025970 

00025980 

00025990 

00026000 

00026010 

00026020 

00026030 

00026040 

00026050 

00026060 

00026070 

00026080 

00026090 

00026100 

00026110 

00026120 

00026130 

00026140 

00026150 

00026160 

00026170 

00026180 

00026190 

00026200 

>0026210 

00026220 



u u 




c 

c 

c 

c 

c 

c 


COMMON/ DAT/ OA^SOOO) 

DIMENSION XBIU> «Y8H1 J »XB2U> *YB2<1) 

equivalence ( 0A( 3AOO) *XB1 ) t> ( DAl 3550 ) v> YBl > t> ( DA < 37 00 ) »X82 ) 

1 ♦ I DAI 3850 ) »yB2 ) »(ND(1)»NP1) »(ND<2)»NP2) 


C0MM0N/CR6/ PI *P 14 *RC *BETA *S INDP tCOSOP 
COMMON/ CFG/ I0K5J »NQB*NQF»NOW*NQP*NQN 
COMMON/CPN/ NB*ND<3)*NT 


LARGE 

1 


OMl 181191 ) »DM2( 3000) 

*XK140) ♦YK140) *SINAN( 140) *COSAN( 140) »DELS( 140) 


NO ( NB+1 ) *NQB+NQF+NOW+NOP 
DO 10 I«1*NP1 
XK I) = XBl<n 
10 Yin>=YBim*8ETA 

IFlW©«EQ*l) GO TO 30 
IC*NP1 

DO 20 I*lfNP2 
lC^IC+1 
XHIC)»XB2( 1 ) 

20 YK IC)»YB2( I )^^BETA 

30 N1«0 
Jl*0 

DO 50 K=1*NB 
Ml*Nl-^l 

Nl*Nl-*-N0(K)-l 
DO 40 J=M1*N1 
J1*J1+1 

T1*XH Jl + l J“X1( JIJ 
T2=Y11J1 + 1 )-Yl( Jl) 

DELS( J)=SQRTIT1»T1-»-T2»T2) 
COSANi J)=T1/0ELS( J) 

40 SINAN( J)*T2/0ELS( J) 

50 J1=J1+1 

RETURN 

END 


0002S230 

00026240 

00026250 

00026260 

000262TO 

00026280 

00026290 

00026300 

00026310 

00026320 

00026330 

00026340 

00026350 

00026360 

00026370 

00026380 

00026390 

00026400 

00026410 

00026420 

00026430 

00026440 

00026450 

00026460 

00026470 

00026480 

00026490 

00026500 

00026510 

>0026520 

00026530 

00026540 

00026550 

00026560 

00026570 

00026580 

00026590 

00026600 

00026610 

00026620 

00026630 

00026640 

00026650 



n n n n 


»DECK CODMT 

subroutine CODMT ( NXS *NTy *NVB »X I »Y I *TH tRZ > 

* A controlled deviation iterpolation method 

* with multiple tables 

dimension XI(1)*YI(1) 

LARGE THdURZd) 

DATA XK/0*5/ 

C* START 

N=NTY 
NM3*N-3 
IC*0 

DO AOO IT=1*NVB 
X=THt IT» 

J = 1 

IF(N-2) 10#30.50 
10 DO 20 IX*1 »NXS 
IC=IC+1 
RZ(IC1=YI(J) 

20 J»J+N 

5 GO TO 400 

30 Rxi=(x-xmn/(xi(2)-xmu 
DO 40 IX=1*NXS 
IC=IC+1 

RZ(IC)>»(YI ( J+1>~YI ( J) )*RXI+YI( J) 

40 J=J+N 

60 To 400 

50 IFUI(J)-X) 60*10*70 
60 J=J+1 

IF(J-N> 50*50*70 
70 IF(J-2) 10*80*90 
80 J=3 
JJ*1 

GO TO 120 

90 iF<j-N) ioo*iio*io ■ ' 

100 JJ*3 

GO TO 120 
110 J*N“1 
JJ*2 

120 IF(NM3) 130*130*140 


00026660 

00026670 

00026680 

00026690 

00026700 

00026710 

00026720 

00026730 

00026740 

00026750 

00026760 

00026770 

00026780 

00026790 

00026800 

00026810 

00026820 

>0026830 

00026840 

00026850 

00026860 

00026870 

00026880 

00026890 

00026900 

00026910 

00026920 

00026930 

00026940 

00026950 

00026960 

00026970 

00026980 

00026990 

00027000 

00027010 

00027020 

00027030 

00027040 

00027050 

00027060 

00027070 

00027080 



130 J=3 
140 K*J-1 
M»K-1 
L*J+1 
AlsX-XKM) 

A2#=X“X1(KI 

A3»X-XI(J) 

ClsA3<^A2/« <XI(M)~XliK))»<Xl(M)-XHJ)>) 
c2=Ai»A3/nxnKJ-xnM) )*unio-xn j) > ) 
C3»A2^Al/( <XI(J)-Xl(M))*<Xl(JJ>XnxM) 
IF(NM3) 160ol6J»150 
160 A4=X-XI(L) 

C4»A4«A3/( tXI (X)-XI IJ) }*<XnX)“XI(Ln } 

C5*A2*A4/( cxn j)“Xi<K) >«(xn Ji-XI lU H 
C6*A3*A2/ (txnui“XnKn««xnu~xi(jni 
160 IFQJ-2J 170*180®190 
170 AL = IX-Xni ) )/(XI (2J~XI< 1 ) ) 

GO TO 200 

180 AL*(X-XI (N-1 n / (XI (N)-XMN“in 
GO TO 200 

190 AL*U-XIU» )/(XI( J»-XI(K) > 

200 DO 300 IX*1.NXS 

Ol*Cl»YI (M)+C2*YnK>+C3^>Yn J) 

1F(NM3) 210»210*220 
210 P2*P1 

GO TO 230 

220 P2»C4*Y 1 1 K KCS^^YK J)+C6*YI( L ) 

230 IF(JJ-2J 240*250»260 
240 P2*P1 

IA*( IX-1)*N+1 

S»AL»Y1( IA+1) + (1*-AL)»YH I A) 
Pl»S+XK*tP2*'S) 

GO TO 270 
250 P1«P2 
IA*IX*N 

S=AL»YU IA)+( l.-AL)*Yl( lA-1) 
P2»S+XK*(P1-S) 

GO TO 270 

260 S*AL*YI( J)-Ml*“AU*Yr (lO 
270 El*ABStPl~S) 

E2»ABS{P2-S) 

1C»IC+1 

IF(E1+E2I 280*280*290 


00027090 

00027100 

00027U0 

00027120 

00027130 

10027140 

00027150 

00027160 

00027170 

00027180 

00027190 

00027200 

00027210 

00027220 

00027230 

00027240 

00027250 

00027260 

00027270 

00027280 

00027290 

00027300 

00027310 

00027320 

00027330 

00027340 

00027350 

00027360 

00027370 

00027380 

00027390 

00027400 

00027410 

00027420 

00027430 

0002 7 a40 

00027450 

00027A60 

00027470 

00027480 

00027490 

00027500 

00027510 



2flO RZ< 1C»=S 
GO TO 295 

290 6T=(El*AU/(El*AL+( 1*-AL>»E21 
R2( IC)»BT*P2+t 
295 J*J+N 
K«K+N 
L»L+N 
M«M+N 

300 CONTINUE 
A 00 CONTINUE 
7ETURN 
END 

•DECK MATA 

SUBROUTINE MATA 

C 

C* 

C 


C 

C 


CONTROL ROUTINE FOR THE CALC OF THE INFLUENCE MATRIX-A 
COMMON/ OAT/ OA(5000) 

dimension WJS(l)*PjC<l)»XBUn*VBim*XB2m*YB2(l) 


equivalence 

1 »IDA(2502) *POY) 
2*tDA(3392) *YN0) 
3f 10A<3700)*XB2) 


i DAI 1202 ) *WOZ> 
♦ (DAI 2503) »P0Z J 
*(DA(3393)*ZN0) 
#< 0A( 3850) .YB2 ) 


*(DA( 1690) *WJS) 

♦ (0A(251N »PJC) 

♦ (DAOAOO) »XBl ) 


*(DA(250l ) *POX) 
♦ (DA0391 ) *XN0) 
»(DA(3550) »YB1 ) 


COMMON/CRG/ 
COMMON/CFG/ 
COMMON/ CPW/ 
COMMON /CPP/ 
COMMON/CPN/ 

large 


PI ♦PIA.RC»BETA*SINOP*COSDP 

ID6» IDF* IDWtIDP *ION»NOB>NQF*NQW*NQP*NON 

HWS*IW1(5) *NE3tNE5. IW2(5I *NJC.NJS 

HPS» IPK3 ) »NEVP# IP2(3> »NVSP»NJCP 

NB»NP1»NP2 


1 

2 

3 

A 

5 

6 

7 

8 


C 

C* 


0MK3000) 

fXQF{650) 

*EV(52) 

*XD(270) 

♦EP(30) 

*"eVP(22) 

.XDP(60) 

»DM7(A536) 

*XA(65U) 

INITIAL 


*XQB(650) 

*YQF(650) 

•XLV(52) 

♦Y0(270) 

*XTLP(30) 

♦ XLVP(22r 

♦ YnP(60> 
»XOB( 1000) 
*YA(650) 


#YQB(650) 

•ZQF{650) 

*XTLV(52) 

*Z0(270) 

• XOCPOO) 

»XfLVP<22) 

»ZDP(60) 

♦YOB(IOOO) 

tZA(650) 


*ZQ0(65O) .DM2( 23050 

«DM3(21750) 

♦DMA{ 7A0) 

*DM5(2163A) 
iWPE(39)" ' ^ 
•DM6(1220) *CFJP(20) 
*Z0B(1000) ♦DM8(700) 


00027520 
00027530 
000275A0 
00027550 
00027560 
00027570 
00027580 
00027590 
00027600 
00027610 
00027620 
00027630 
0002 76A0 
00027650 
00027660 
00027670 
00027680 
00027690 
00027700 
00027710 
00027720 
00027730 
000277A0 
00027750 
00027760 
00027770 
00027780 
00027790 
00027800 
00027810 
00027020 
00027830 
) 1002 7 8A0 
00027850 
00027060 
00027870 
00027060 
00027890 
00027600 
00027910 
00027920 
00027930 
0002 79A0 



200 


1CN=0 
I 19=2 
120 = 2 
121=2 
122 = 2 

C 

C* CONTROL POINTS Q ON FUSELAGE 

IF( IDBoEQ*0) GO TO 100 
DO 30 I=1»NQB 
XA( n=XQBU) 

YA( n=YQB( I > 

30 2A(l)=Z0B(n 

C CALC INFL of FUSELAGE 

IF( IDBeEO.l ) GO TO A4 

00 A2 I=1*NQB 
A2 READ (19) 

GO TO 50 
AA 119=1 

CALL AQXVB (N0B*1) 

c calc infl of FANPOO 

50 IF(l0F*e0.0) GO TO 60 

IDX = IOB-«-lDF 
IFUDX.NE.A) GO TO 5A 
DO 52 1=1*NQB 
52 READ (20) 

GO TO 60 
5A 120*1 

CALL A0XVF(N08*2) 

C CALC infl OF WING 

60 IFUOW.EQ.O) GO TO 70 

IDX»ID8+IOW 
IF(IDX,NE*A) GO TO 6A 
DO 62 1=1. NOB 
62 READ (21) 

GO TO 70 
6A 121=1 

CALL AQXVW<NOB*3) 

C CALC INFL OF PYLON 

70 IF(IDP.EO.O) GO TO 80 

1DX=IDB+1DP 
IFUDX.NE.A) 60 TO 7A 
00 72 1=1 .NOB 
72 READ (22) 


00027950 

00027960 

00027970 

000279B0 

00027990 

00028000 

00028010 

00028020 

00028030 

000280A0 

00028050 

00028060 

00028070 

00028080 

00028090 

00028100 

00028110 

00028120 

00028130 

000281AO 

10028150 

00028160 

00028170 

00028180 

00028190 

00028200 

00028210 

00028220 

00028230 

000282A0 

00028250 

00028260 

00028270 

00028280 

00028290 

00028300 

00028310 

00028320 

00028330 

000283A0 

00028350 

00028360 

00028370 



n n 


GO To 80 

74^ 122*1 

CALL AOXVPJNOB.Al 

C SETUP NACELLE OFF BODY POINTS 

80 IF(IDN.EQ.O) GO TO lUO 

r* 

ICN*ICN+1 
XOB( ICN)*XAn ) 

V0B( ICN)=YA( I » 

82 20B( ICNJ*2A( I » 

* CONTROL POINTS 0 ON FANPOD 

100 IFdOF.EO.O) GO TO 200 
DO 130 I»l*NOF 
XAm*XQFm 
YAm»YQFm_ 

130 2A( n«2QF( n " 

C CALC INFL OF FUSELAGE 

IF(IDB.EO.O) GO TO 150 
IDX*lbF+I19+lbB ' 

IF(I0X.NE*5) 60 TO 1A4 
00 142 I=1*NQF 
142 READ (19) 

GO TO 150 
144 119*1 

call AbXV8iNQF*6) 

C CALC InFL OF FANPOD 

150 IDX»IDF+120 

IFdDX.NE.Aj GO TO 154 
DO 152 I*1.NQF 

152 READ (20) „ . 

GO To 160 
154 120*1 

CALL AQXVF(NQF»7) 

C CALC INFL OF WING 

160 IF<IDW.E0*0) GO TO 170 

IOX=IOF-H21 + IOW „ _ _ 

IF(I0X.NE*6) GO to 164 

DO 162 I*1*NQF 
162 READ (21) 

GO TO 170 
164 121*1 

CALL AOXVW(NQF*8) 


00028380 

00028390 

00028400 

00028410 

000^0420 

00028430 

00028440 

00028450 

) 00'28460 

00028470 

00028480 

00028490 

00028500 

00028510 

00028520 

00028530 

00028540 

00028550 

00028560 

00028570 

00028580 

00028590 

00028600 

00028610 

00028620 

00028630 

00028640 

00028650 

00028660 

00028670 

00028680 

00028690 

00028700 

00028710 

00028720 

00028730 

00028740 

00028750 

00028760 

00028770 

00028780 

00028790 

00028800 



202 


C 


CALC I NFL OF PYLON 
170 IF(IOP*EQ.O) GO TO 180 
IDX=IOF+I22+IDP 
IF(I0XeNE*6) GO TO 174 
00 172 1=1. NOF 
172 READ (22) 

GO TO 180 
174 122=1 

CALL AQXVP(NQF*9) 

C SETUP NACELLE OFF BODY POINTS 

180 IFUDN.EQ.O) GO TO 200 
DO 182 1=1*NQF 
ICN=ICN+1 
XOBnCN>=XA(II 
YOBUCN)=YA( I ) 

182 zoai ICN)=ZA( I ) 

C 

C» CONTROL POINTS 0 ON WING 

200 IFUOW.EQ.O) GO TO 300 
1R=0 
10=0 

NE4»NE3+7 
NET»NE3+4 
NE6=NE5+1 
DO 220 I=1»NJS 

iE=wjsm 

Y»HWS»EP(I) 

DO 220 J=1.NJC 
10 = 10+1 

IF(IDF*EQ.0) GO TO 210 
IF( IE.LE.NE3) go TO 214 
IF( IE.GE.NE4I GO TO 210 
IFUE. EQ.NET. AND. J.EQ. 1 ) IR=90 
GO TO 212 

210 IFdE.LE.NES) GO TO 214 

IFn£.EQ.N£6.AND.J.EQ.l ) IR = 180 
212 IR=IR+1 

XAnQ)=XO(IR) 

YA( IQ)*Y0( IR) 

2A( IQ)=Z0( IR) 

GO TO 220 

214 XA( IQ)=XLV( IE)+XTlV( IE)*X0CP( J) 

YA( IQ)=Y 


00028810 

00028820 

00028830 

00028840 

00028830 

00028860 

00028870 

00028880 

00028890 

00028900 

00028910 

00028920 

00028930 

00028940 

00028950 

00028960 

00028970 

00028960 

00028990 

00029000 

00029010 

00029020 

00029030 

00029040 

00029050 

00029060 

00029070 

00029080 

00029090 

00029100 

00029110 

00029120 

00029130 

00029140 

00029150 

10029160 

00029170 

00029180 

00029190 

00029200 

00029210 

00029220 

00029230 



ZA( IQ)=WOZ*BETA 

220 continue 

C CALC I NFL OF FUSELAGE 

1F( IDB.EQ*0) GO TO 250 

I0X=IDW+I19+I0B 
IFUDX*NE.6) GO TO 244 
00 242 I=1*N0W 
242 READ (19) 

GO TO 250 
244 119=1 

CALL AQXVB(NQW»11) 

C CALC INFL OF FANPOO 

250 IFUDF.EQ.O) GO TO 260 

IDX*IDW+I20+IDF‘ ' 

IF( 1DX*N£*6) GO TO 254 
DO 252 I=1»N0W 

252 READ (20) 

GO TO 260 
254 120*1 

CALL ' A(3XVF( NQW *12 ) 

C CALC InFl of wing 

260 IDX*IDW+I21 

IF(IDX.NE.4r GO TO 264 
o DO 262 1*1 ♦NOW 

262 READ (21) 

GO TO 270' 

264 1 21* I 

CALL AOWVWU3) 

C CALC INFl of pylon 

270 IF(IDP.EO.O) GO TO 280 

IDX«IDW+I22+IDP 

IF(IDX.NE*6) GO TO 274 - - 

00 272 I*1»NQW 

272 READ (22) _ __ 

GO TO 280 
274 122*1 

CALL A0XVP(NQWtl4) 

C " ~ SET UP “nacelle OFF BODY POINTS 

280 IF(IDN.EQ.O) GO TO 300 
00 282 I=1*NQW 
ICN=ICN+1 
XOB( rCN)*XA(I ) 

YOB( ICN)*YA( I > 


00029240 

00029250 

00029260 

00029270 

00029280 

00029290 

00029300 

00029310 

00029320 

00029330 

00029340 

00029350 

00029360 

00029370 

00029380 

00029390 

00029400 

00029410 

00029420 

00029430 

00029440 

00029450 

00029460 

J0029470 

00029480 

00029490 

Q0029900 

00029510 

00029520 

00029530 

00029540 

00029550 

00029560 

00029570 

00029580 

00029590 

00029600 

00029610 

00029620 

00029630 

00029640 

00029650 

00029660 



n n 


282 ZOB( ICN)=ZA< I ) 


♦ control points q on pylon 

300 IFIIDP.EQ.O) GO TO AOO 
IR=0 
IQ=0 

pyb*poy*beta 
PZB®POZ*BETA 
DO 320 I=liNVSP 
Y»HPS*£VP( I ) 
yc=pyb+y*sindp 
ZC=PZB+Y#COSDP 
DO 320 J=1.NJCP 
I J*PJC(J) 

10 = 10+1 

IFn*LE#NEVPI GO TO 310 
IR*IR+1 

XA( IQ)=XDP( IR)+POX 

YA( lQ>»tYOPt IR)*SlNOP-ZOP ( I R ) *COSDP > +PYB 
ZA( IQ)=( YOP( IR)*C0SDP+ZDP( IR)*SINDP)+PZB 
GO TO 320 

310 XA( IQ>=XLVPU )+XTLVP( I) *CFJP ( lJ+1 ) +POX 
YA<IO)»YC 
ZAIIQ)*ZC 
320 CONTINUE 

C CALC I NFL OF FUSELAGE 

IF( I0B«EQ*0> GO TO 350 

IDX»IDP+IX9+IDB 
IF! IDX.NE.6) GO TO 344 
DO 342 I=l»NQP 
342 READ (19) 

GO TO 350 
344 I19»l 

CALL AQXV8(NQP*16) 

C CALC INFL OF FANPOD 

350 IF(IDF*EQ#0) GO TO 360 

IDX=IOP+I20+IOF 
IF( I0X,NE*6) GO TO 354 
00 352 I»i*NOP 
352 READ (20) 

GO TO 360 
354 120=1 

call AQXVF(NQP*17) 


00029670 

00029680 

00029690 

00029700 

00029710 

00029720 

00029730 

00029740 

00029750 

00029760 

00029770 

>0029780 

00029790 

00029800 

00029810 

00029820 

00029830 

00029840 

00029850 

00029860 

00029870 

00029880 

00029890 

00029900 

00029910 

00029920 

00029930 

00029940 

00029950 

00029960 

00029970 

00029980 

00029990 

00030000 

00030010 

00030020 

00030030 

00030040 

00030050 

00030060 

00030070 

00030080 

00030090 



C CALC INFL of w<ING 

360 IFUOW.EO.O) 60 TO 370 
IDX=I0P+I21-MDW 
IF(IDX.N£«6} 60 TO 364 
DO 362 I=1*NQP 
362 READ 121) 

GO TO 370 

364 I2l»l ' 

CALL AQXVW(NQP*18) 

C SETUP nacelle OFF BODY POINTS 

370 IFUDN.EQ^OJ GO TO 380 
. DO 372 I*1*NQP 
ICN=ICN+1 

XOB( ICN)*XA( I ) ' 

YOBI ICN)=YA(I ) 

3 72 ZOB(ICNJ*ZAm 
C CAlC INFl of pylon 

380 IDX=IDP+I22 

IF(IDX,NE.4) GO TO 384 

00 382 I»1*n6p ’ 

382 READ (22) 

60 TO 400 
384 122=1 

CALL AQPVP 

CALL AQXVP(NQP»19) 

c ■■ 

C* control POINTS Q ON NACELLE 

400 IF(IDN*EO«0) GO TO 500 
YN06=YN0*BETA 
ZN0B=ZN0»8ETA 
DO 410 I=2*NP1 

XA ( I-l ) =XNb+(X8i { I ) +XB1 ( I-I f ) /2'. 

YN=(Y01( n+YBK I-l) )/2.*BETA 
YA{ I~1 ) =YN0B-YN*SINDP 
410 ZA( I-1)«2N0B-YN*C0SDP' 

IF(NB.EQ*I > GO TO 430 

IC=NPl-l „ 

' DO 42b i = 2*NP2 ■ 

IC=IC+1 

XA( IC)»XN0+(X82 { I )+XB2( I-l ) )/2# 

YN»IYB2( I >-^YB2( I-l ) )/2* 
YA{IC)»YN0B-YN»SINDP 
420 ZA( IC)=ZN08-YN*C0SDP 


00030100 
00030110 
00030120 
00030130 
00030140 
00030150 
00030160 
00030170 
00030180 
00030190 
00030200 
00030210 
00030220 
00030230 
00030240 
00030250 
00030260 
' 00030270 
00030280 
00030290 
00030300 
00030310 
00030320 
00030330 
00030340 
00030350 
00030360 
00030370 
00030380 
00030390 
00030400 
00030410 
00030420 
00030430 
00030440 
00030450 
00030460 
00030470 
J0030480 
00030490 
00030500 
00030510 
00030520 



206 


c setup nacelle off body points 

430 DO 440 I<l«NON 
ICN=ICN+1 
X0B( ICN»=XA( r ) 

Y0B< ICN)'YA( I J 
440 20B« ICN)=ZA( I 1 

C CALC INFL OF FUSELAGE 

IF(IDB.EQ*0) GO TO 450 

IDX=IDN+U9 + IDB 
IFUDX.NE.S) GO TO 444 

DO 442 I=l»NON 
442 READ (19) 

GO TO 450 
444 119*1 

CALL AOXVB(NQN»21) 

C CALC INFL OF FANPOD 

450 lF(IOF*EQ.O) GO TO 460 

1DX=IDN+I20+IDF 
IF ( I0X.NE.6) GO TO 454 
DO 452 1*1. NON 
452 READ (20) 

GO TO 460 
454 120=1 

CALL AQXVF(NQN*22> 

C CALC InFl of wlNG 

460 1F(I0W*60*0) GO TO 4?0 
IDX*ION+I2H-IDW 
IFiIOX.NE.6) GO TO 464 
DO 462 1=1 .NON 
462 READ (21) 

GO TO 470 
464 121*1 

CALL AQXVW(NQN*23) 

C CALC INFL OF PYLON 

470 IF( lOP.eCl.O) GO TO 500 
IDX*IDN+I22->-IDP 
IFUDX.NE.6) GO TO 474 
DO 472 I*1.NQN 
472 READ (22) 

GO TO 500 
474 122*1 

CALL AQXVP(NQN»24) 


00030530 

00030540 

00030550 

00030560 

00030570 

00030580 

00030590 

00030600 

00030610 

00030620 

00030630 

00030640 

00030650 

00030660 

00030670 

00030680 

00030690 

00030700 

00030710 

00030720 

00030730 

00030740 

00030750 

00030760 

00030770 

00030780 

)0030790 

00030800 

00030810 

00030820 

00030830 

00030840 

00030850 

00030860 

00030870 

00030880 

00030890 

00030900 

00030910 

00030920 

00030930 

00030940 

00030950 



c* 

REIND I/O units 

00030960 

500 

IF(IOB.NE.O) REWIND 19 

00030970 


IF(IDF.NE.O) rewind 20 

00030980 


IFdDW.NE.O) rewind 21 

00030990 


IF( IDP.NE.O) REWIND 22 

00031000 

c 


00031010 

c* 

CALC INFl OF nacelle ON OTHER COMPONENTS 

00031020 


IF(ION.NE.O) call NACELL 

00031030 

c 


00031040 

c* 

COMBINE influence MATRICES AND SETUP FOR MATRIX SOLD. 

00031050 


CALL MATAPE 

00031060 

c 


00031070 


return 

00031080 


END " 

00031090 


’•foecK aqxvb 

SUBROUT I NE 
C 

C* 


AQXVBCNQ*! TYP) 

CALC MATRIX-A (Q ON X-COMPONENT AND VORTICES ON FUSE.) 


>0031100 

00031110 

00031120 

00031130 


C _ 00031140 

COMWN/DAt/ DA(5000) 00031150 

C 00031160 

equivalence (DAI 3386) »XLFX> » IDA ( 3387) .XLFY) ♦ I DA (4707) .FNDV) 0003H70 

C 00031180 

COMMON/CKG/ PI .PI4 »RC»8ETA,SINDP*C0S0P 00031190 


COMMON/ CFG/_ ion 10) »NKB 00031200 

COMMON/ CPB/ ■NVX.NVXM*NVY.NDV*NV8*NVBP*NF»NJXfIFBE 00031210 

C 00031220 

LARGE DM1 (10800) 00031230 

* »PM( 150»25) *DFMI 150> ♦DM2H300) 00031240 

# #X8(4000) *YB(4000) *ZB<4000) »DM3l5689U 00031250 

1 *XQ(650) .YQ(650) *ZQ{650) 00031260 

2 fAX(25d) *AY(250) »AZ(250) ' 00031270 

3 »QBX(51) »QBY(51) »Q8Z(51) 00031280 

4 ♦QBXP(51) .QBYP(51) *Q8ZP(51) 00031290 

5 ■ ♦QTXYsT ) ■ “ *QtY( »QTZ151) 00031300 

6 iOLtSD fOLPiSl) »SL151) »PLM(51»25) 00031310 

C - _ 00031320 

C* ' STARt' ~ ‘ " - - - 00031330 

XLFY2»XLFY*XLFY 00031340 

C NO. OF CONTROL POINTS Q LOOP 00031350 

DO 400 10=1 *NQ 00031360 

C CLEAR summation MATRICES 00031370 

IF(NF.NE.O) go to 11 00031380 



208 



DO 10 I=lfNVY 

00031390 


QBXP( I )=0«0 

00031400 


QBYP{ n«o*o 

10031410 

10 

Qazp(n=o*o 

00031420 


GO TO 14 

00031430 

11 

00 12 I»1*NKB 

00031440 


AXU> = 0,0 

00031450 


AY( n»o*o 

00031460 

12 

AZ( I)«U«0 

00031470 


Nvx And nvy loops 

00031480 

14 

IPAS*0 

00031490 


DO 300 IX=1»NVXM 

00031500 


LI»< IX-1 )*NVBP+2 

00031510 


LF=LI+1 

00031520 


NVYX=NVY+NVY 

00031530 


TEST TO BYPASS X-SEGMENT 

00031540 


IFdQ.EQ.lJ GO TO 15 

00031550 


IF(IX.GE.(NVXM-1 ) > GO TO 15 

00031560 


TT=A8SIX0< I0)“XB(LI > IX) 

00031570 


!F(TT,GT*XLFXI go to 270 

00031580 

15 

oz2*iZBan-zo( loi i**i 

00031590 


DYB=YB(LI )-YB(Ll+l) 

00031600 


IF(OYa*EQ.0,0) GO TO 16 

00031610 


DF2=(FNDV*0YB)**2 

00031620 

16 

TT=( (-YB<LI )-YQ( IQ) )**2+0Z2)/DF2 

00031630 


IFnT*GT*XLFY2) NVYX»NVY 

00031640 


DO 180 IS=l»NVYX 

00031650 


K»NDV 

00031660 


1F( ix.ne*nvxm) go To 18 

00031670 


K»0 

00031680 


LF=LI+NOV 

00031690 


LI=LF-NVBP 

00031700 

18 

ISS»IS-NVY 

00031710 


IF(ISS) 20»20»32 

00*031720 

20 

JS»IS 

00031730 


OBX( JS)=0.0 

00031740 


QBY(JS)=0.0 

00031750 


QBZtJS)=0*b 

00031760 

30 

TYl«YB<LF)-YBtLU 

00031770 


TY2»YB(LF)“YQ( IQ) 

00031780 


TY3»YB<Ln~YQ( IQ) 

00031790 


GO TO 50 

J0031800 

32 

JS=ISS 

00031810 



40 TYl»YatLU-V8lLF J 
TY2=-Y8(LF)-YQ( IQ) 

TY3=-YB(Ln’'YQ( IQ) 

50 TX1=X8(UF)-XB(LI ) 

TX2=XB{LFJ-XQ( IQ) 

TX3=X8(LI)-X0nQ) 

TZ1=Z0(LF)-ZBILI ) 

TZ2"aZB(LF)-ZQ< IQ) 

TZ3=Z8(LI )-ZQ<lQ) 
HN=TX2*TXl-fTY2*TYl+TZ2*TZl 
H0»TXl**2+TYl**2+TZl»*2 
SQHD*5QRT<H0) 

IF(SQHD*GT. 0,00001) GO TO 52 

51 QSR=0,0 ' ' 

GO TO 54 

52 HT*fiN/H0 
HX=TX2-HT*TX1 
HY=TY2~HT#TY1 
HZ*TZ2-HT#TZI 

SHP»SQRT(HX*«2+HY**2+HZ**2) 

IF(SHP,LT. 0. 00001 ) GO TO 51 
SRF=HN/SQRT( TX2#*2+TY2*»2+TZ2**2) 
HI=TXI*TX3+TY1*TY3+TZ1*TZ3 
SRI=HI/SQRT(TX3*»2+TY3*»2+TZ3**2) 
QT*(SRF-SRI )/(SQHD»SHP»PU> 

* TX«TY2*TZl-TZ2*tV 1 

TY=TZ2*TXl-rX2*TZl 
TZ=Tx2*TYI-TY2*TXX 
QSR=QT/SQRT ( TX#*2+T Y»*2+TZ**2 ) 
IFUSS,GT,0) QSR=-QSR 

54 X»K-1 

lF(k) 140,60*60 

C* lateral VORTICES 

60 QBX( jS)aQSR*TX+QBX( JS) 

QBY < JS ) aQSR*tY+QBY I JS )'■"■ " 

OBZ ( JS ) *QSR« TZ+QBZ < JS ) 

IF(X) lOOflOOtTO 

c ■ ' ri qnal la terac 

70 LI»LF 
LF=LF+1 

IF(ISS) 30,30,40 

C SETUP FOR longitudinal 

100 LI*LF-NVBP 


00031820 

00031030 

00031040 

00031050 

00031060 

00031070 

00031060 

00031890 

00031900 

00031910 

00031920 

00031930 

00031940 

00031950 

00031960 

00031970 

000319B0 

00031990 

00032000 

00032010 

00032020 

00032030 

00032040 

00032050 

00032060 

00032070 

00032080 

00032090 

00032100 

10032110 

00032120 

00032130 

00032140 

00032150 

00032160 

00032170 

00032160 

00032190 

00032200 

00032210 

00032220 

00032230 

00032240 



210 


IFUX.EQ*!) Ll-1 

IFdSii) 30*30*40 

c* longitudinal vortices 

140 IF( ISS) 160*155*150 
150 QTX( JS)«QSR»TX+QTX( JS> 

QTY ( JS ) =QSR*TY+QT Y I JS I 
OTZ( jS)=QSR*TZ+QTiUS) 

GO To 170 
155 LF»H+1 
160 QTX( JS)=QSR»TX 
QTYi JS)»OSR*TY 
QTZ( JSI*QSR*TZ 
DL(JS)»SQH0 
170 LI*LF 
LF»LF^>1 
180 CONTINUE 

IFI IPAS*Ea.O) GO TO 190 

IPAS^O 

READ (23) 

GO TO 255 

190 IFI 1X*NE*NVXM) GO TO 198 
IFUFBE*EO*0» GO TO 198 

C * COMPUTE TRAIL VORTICES 

191 DO 196 I=1*NVY 
PASS»1. 

HYsYB(Ln-YQ( I0» 

HX*XBCLI>-XQUQ) 

HZ^ZBILH-ZQI 10) 

192 D01=HY«HY+H2»H2 
IF(OD1.LT*0.00001) 60 TO 193 
DDZ'SORTIHX^HX+DOl) 

IF(002*LT. 0*00001) GO TO 193 
QSRsI 1.~HX/DD2)''0D1*PASS/PI4 
QTY t jS ) =QT Y ( JS ) +OSR*HZ 

QTZ i JS ) =QT Z ( JS ) -QSR»HY 

193 IFIPASS) 195*195*194 

194 PASS*-1*_ 

HY*-YB(Li )-YQ( IQ) 

GO TO 192 

195 LI»LI-NDV 

196 JS»JS“1 

C* CALC matrix L 

198 IF(NF*LE*0) 60 TO 210 


00032250 

00032260 

00032270 

00032280 

00032290 

00032300 

00032310 

00032320 

00032330 

000323A0 

00032350 

00032360 

00032370 

00032360 

00032390 

00032400 

00032410 

J0032420 

00032430 

00032440 

00032450 

00032460 

00032470 

00032480 

00032490 

00032500 

00032510 

00032520 

00032530 

00032540 

00032550 

00032560 

00032570 

00032580 

00032590 

00032600 

00032610 

00032620 

00032630 

000326AO 

00032650 

00032660 

00032670 



211 


1FUTYP,nE.1) go to 200 
IF(IQ*EQ*1» go to 201 

200 IF(IX*£0*1) Go TO 255 

READ (23) ( IPLM( J* I ) t J=1 fNVY) 1 I=l »NF) 
GO TO 210 

201 DFM( IX)=DL< 1) 

IF( IX*NE*1 ) GO TO 204 
Dl.P(i)*DL(i) * 

DO 202 J»2>NVY 

202 DLP ( J J * ( OL ( J-1 >'*-0L ( J ) ) / 2 • 

DO 203 J = 1»NVY 

00 203 I=l.NF 

203 PLM(J*n=0*0 

GO TO 255 " - 

204 0LX=Dl,{l)/2* 

SC( 1)=0LP( U+OLX 

dlpu)«olx 

DO 205 J=2»NVY 
OLXs(OL( J~1 )+0L( J) )/4. 

SU J)aDLP( J)+DLX 

205 DLP(J)=DLX 

IF( IX.NE.NVXM) GO TO 207 ^ 

DO 206 J=l»NVY 

206 5L( J)aSLi J)+OLP( J) 

207 DO 208 J=1»NVY 

DO 208 I = i *NF ' " " 

208 PLM( J* n*PM( IXtn*6L( J)+PLM(J*I) 

WRITE (23) ( (PLM(JM) »J«i*NVY) *I = 1 »nF) 

C* SUM FOR AX* ay AND A2 

210 TX=Q8XP( 1)-QBX( I )+QTX( 1 )~QTX(NVY) 

T Y=08YP ( 1 ) ~QBY ( I ) +QT Y ( 1 ) -QT Y ( NVY ) 
T2=QB2P( 1)-Q82( 1 )+QT2( 1 )-QT2(NVY) 
IF(NF) 212*212.214 
212 AX(IX)=TX 

AY( IX) = TY 

A2(IX)»T2 
GO T0_230_ 

2X4 DO '220 l = r*NF" ' ’ " 

AX(I)=TX*PLM( l.I)+AX(I) 

AY(I)»TY*PLM( l*n+AY(I) 

220 A2( I)=T2*PLM( 1*1)+A2(I> 

IC»NF 

230 DO 250 J=2*NVY 


000 32680 

00032690 

00032700 

00032710 

00032720 

10032730 

00032740 

00032750 

00032760 

00032770 

00032780 

00032790 

00032800 

00032810 

00032820 

00032830 

00032840 

00032850 

00032860 

00032870 

00032880 

00032890 

00032900 

00032910 

00032920 

00032930 

00032940 

00032950 

00032960 

00032970 

00032980 

00032990 

00033000 

00033010 

00033020 

00033030 

00033040 

00033050 

00033060 

00033070 

00033080 

00033090 

00033100 



o n n 


ro 

M 

fO 


TX=QBXP( J)“QBX( J)+QTX( J)-QTX( J-1 ) 

TY=QBYP< J)-QBY< J1+UTY( J)“QTY( J-1 ) 

TZ = QBZP( J)+QTZU)“QTZ( J-1 ) 

IF<NF) 232»332*234 
232 IC=( J-1 J*NVXM+IX 
AXt lO-TX 
AY( IC)=TY 
AZ< IC)=TZ 
GO TO 250 
234 DO 240 1=1 *NF 
IC=IC+1 

axucj«tx*plm( j*n+AX(ic) 

AY( IC) = TY*PLMt J*n+AY(1C> 

240 AZ< IC) = TZ*PLM( JiU+AZUCJ 
250 CONTINUE 
255 DO 260 I=1»NVY 
QBXP( I )=QBX( I ) 

QBYP( I »=Q6Y( I ) 

260 QBZP( I )=QBZ( I ) 

GO TO 300 
270 IPAS=1 

IFl IX.EQ*1 ) GO TO 300 
READ (23) 

300 CONTINUE 
REWIND 23 
C 

IF( ITYP*LT*16) go TO 320 
00 310 I=1»NX8 
ayt=ay( n 

AY( n=AYT*SlNDP+AZt U*C050P 
310 AZn )=-AYT*COSDP+AZ( I )*i>lN0P 
C 

320 WRITE (19) ( AX ( IC ) » AY ( IC ) *AZ ( IC ) * IC= 1 ♦NKB) 

400 continue 

WRITE (6»450) ITYP 

450 FORMAT (21H0 ** COMPLETED MATRIX* l4) 

RETURN 

END 

♦DECK AQXVF 

SUBROUTINE AQXVF(NQ* I TYP J 

CALC MATRIX-A (Q ON X~COMPONENT AND VORTICES ON FANP*) 


00033110 

00033120 

00033130 

00033140 

00033150 

00033160 

00033170 

00033180 

00033190 

00033200 

00033210 

00033220 

00033230 

00033240 

00033250 

00033260 

00033270 

00033280 

00033290 

00033300 

00033310 

00033320 

00033330 

00033340 

00033350 

00033360 

00033370 

00033380 

00033390 

00033400 

00033410 

00033420 

10033430 

00033440 

00033450 

00033460 

00033470 

00033480 

00033490 

00033500 

00033510 

00033520 

00033530 



COMMON/ OAT/ DA I 5000) 

equivalence ,( DA( 3380) tXLFX) » ( DA< 3381 ) fXLFr ) ♦<DA(1276) 

COMMON/CRG/ PI »P 14 »RC »8ETA ♦ SINDP »CObDP 
COMMON/CFG/ IGlUDtNKF 

COMMON/ CPF/ NVX»NVXM»NVYtNDV*NV8*NVBP»NF*NJXt IFBE 


LARGE 


» 

* 

1 

2 

3 

4 

5 

6 


OMl 135800) 
.PMllOO.25) 
fXBUOOO) 
«XQ(650) 
>AX(250) 
*QBX(51) 
V08XP(5i ) “ 
tQTX(51) 
*DL(51) 


♦DFMl 100) 
♦YB14000) 
♦YQ1650) 
♦AY1250) 
tUBY(51) 
»OBYP( 51 ) 
.QTY(51) 
tOLPl 51) 


•0M21 1300) 
«ZB(4000) 
*ZQ(650) 
tAZ(230) 
*QBZ(51) 
»0BZP(51 ) 
.QTZ151 ) 
»SLl5i) 


»0M3133191) 


»PLM1 61*25) 


C 

C* 


C 

c 


ro 

H 

U) 


start 

PI4=4.*PI 

xlfy2=xlfy#xl'fy 

NO. OF CONTROL POINTS 0 LOOP 
DO 400 IQ»1*N0 

CLEAR summation matrices 
IF(NF.NE.O) GO TO 11 
DO 10 I*1*NVY_ 

QBXP n ) =0" .0 

Q8YP(I)*0.0 

10 Q8ZP1 I JaO.O 
GO TO 14 

11 DO 12 I»l*NKF 
AX m *0.0 
AYm=0.0 

12 AZ(n=0.0 

NVX A ND NVY LOOPS 

14 IPAS»0' 

DO 300 IX»1*NVXM 

_ LI = 1 lX-l)*NVBP<<-2 

LF»Li+l 

nvyx«nvy+nvy 

TEST TO BYPASS X-SEGMENT 
IF(IO.eO.l) GO TO 15 
IF1IX,GE.1NVXM-1)> GO TO 15 
TT=A8S1XQ( IQ)-XB(LU)/DFM1 IX) 


00033540 

♦FNDV)00033550 

00033560 

00033570 

00033560 

00033590 

00033600 

00033610 

00033620 

00033630 

00033640 

00033650 

00033660 

00033670 

00033680 

00033690 

00033700 

00033710 

00033720 

00033730 

10033740 

00033750 

00033760 

00033770 

00033780 

00033790 

00033800 

00033810 

00033820 

00033830 

00033840 

00033850 

00033860 

00033870 

00033880 

00033690 

00033900 

00033910 

00033920 

00033930 

00033940 

00033950 

00033960 



IFITT.GT.XlFX) go To 270 

15 0 Z 2 »IZ 8 (LI )-ZQ( I 0 n »*2 
DVe=Y6(Ll )-YBlLl+U 
IFIOYB.EQ.Q.OJ Go to 16 
0F2=( FN0V*DYB) **2 

16 TT=i (-YBtLi )-Y0< I Q) ) *«2+DZ2 ) /DF2 
IF( TT*GT*XLFY2 ) nvyx=nvy 

DO 180 IS=1»NVYX 
X=NDV 

IF( IX*NE*NVXMJ GO TO 18 
K=0 

lf=li+ndv 

LI=LF-NVBP 
18 ISS=IS-NVY 

IF(ISS) 20»20*32 
20 JS*IS 

QBX( JS)=»0*0 
QBY(JS)=0.0 
QBZ( J6)s0*0 
30 TY1=YB(LF)-Y8(LI ) 

TY2=YB(LF)-YQ( IQ) 

TY3=YB<LI )-Y0( 10) 

GO TO 50 
32 JS=ISS 

40 TYIsYBILD-YBCLF) 

TY2=-YBILF)-YqI IQ) 

TY3»-YB(LI )~YQ( IQ) 

50 TX1=XB<LF)-XB(LI ) 

TX2=XB(LF)-'XQ{ IQ) 

TX3=X8(LI )-XQ( 10) 
TZ1=ZBILF)“ZBILI ) 

TZ2=ZBILF)-ZQ( IQ) 

TZ3=ZB(LI )“ZQ( 10) 
HN=TX2*TXI+TY2*TY1+TZ2*TZ1 
HD=TX1**2+TY1♦^^2+TZ1*^^2 
S0HD=S0RT(H0) 

IF (SQHD*GT •0.00001) GO TO 52 

51 0SR=0*0 
GO TO 54 

52 HT*HN/HD 
HX=TX2-HT*TX1 
HY=TY2-HT*TY1 
HZ=TZ2-HT*TZ1 


00033970 

00033980 

00033990 

00034000 

00034010 

00034020 

00034030 

00034040 

10034050 

00034060 

00034070 

00034080 

00034090 

00034100 

00034110 

00034120 

00034130 

00034140 

00034150 

00034160 

00034170 

00034180 

00034190 

00034200 

00034210 

00034220 

00034230 

00034240 

00034250 

00034260 

00034270 

00034280 

00034290 

00034300 

00034310 

00034320 

00034330 

00034340 

00034350 

00034360 

00034370 

00034360 

00034390 



SHP»SQRT IHX**2+HY**2+HZ.**2) 
IF(SHP.LT«0.00U01J GO TO 51 
SRF=HN/SQRT < TX2**2+TY2**2+Ti2**2 ) 

HI = TX1*TX3+TY1*TY3-HZ1*T23 
SRI*HI /SORT (TX3**2+TY3*#2+TZ3*»2) 

QT* I SRF-SR U/ t SOHO*SHP*P I 4 ) 
TX=TY2*TZ1~TZ2*TY1 
TYsTZ2*TXl~tX2*TZl 
TZ»TX2»TYX-TY2»TX1 
QSR=QT/bQRT i TX*#2+T Y*#2 + TZ**2 » 
IFirSS.GT.O) QSR=-Q5R 
54. K=K~1 

IF{<) 140»60*6U 

c* ■ ■ ' lateral vort ices 

60 QBX( JS ) »OSR*TX+QBXl JS ) 

QBflJS > =QSR»T Y+QBY ( JS ) 

QBZ( jSl=QSR*TZ-ikQBZ( JS) 

IFtKl 100#100*70 

C „SETUP FOR ADDITIONAL LATERAL 

■■' 70 LI»LF • 

LF»LF+1 

IFUSS) 30.30i40 

C SETUP FOR LONGITUDINAL 


100 LI=LF-NVBP 

IFUX.EQ.l) LI = l 

- - TF(iSS) 30736.40'' 

C* LONGITUDINAL VORTICES 

140 IFUSS) 160.155.150 
150 QTX< JS)*QSR*TX>QTX( JS) 

QTY( JS)=0SR*TY+QTY( JS) 

QTZ t JS ) *QSR*TZ+QTZ t JS ) 

GO' TO 170 ' * ■ 7' 

155 LF*LI+1 

160 OTX( JS)»QSR*TX 

QTY( JSj=OSR*TY : - 

QTZ( JS)-QSR»TZ 


0L(USl«SQH0 
170 LI»LF" 
LF=LF+1 

180 continue 

IF( IPAS*EQ.0) 
IPAS-0 
READ (24) - 


GO TO 190 



00034400 

00034410 

00034420 

00034430 

00034440 

00034450 

00034460 

00034470 

00034460 

00034490 

00034500 

00034510 

00034520 

00034530 

00034540 

00034550 

00034560 

00034570 

00034560 

00034590 

00034600 

00034610 

00034620 

00034630 

00034640 

00034650 

00034660 

00034670 

00034680 

00034690 

00034700 

00034710 

00034720 

00034730 

00034740 

10034750 

00034760 

00034770 

00034780 

00034790 

00034800 

00034810 

00034820 



GO TO 255 

190 IF( IX*NE*NVXM) GO TO 198 

IF( IFBE*EQ*0) GO TO 198 

C * COMPUTE TRAIL VORTICES 

191 DO 196 I=1«NVY 
PASS»1* 

HY*YB(LI )-YQ( IQ) 

HX=XB<Ln-XQ( IQ) 

HZ=ZB(LI)-'^Q< ioi 

192 DD1»HY*HY+HZ*HZ 
IF(DD1.LT*0*00001) GO TO 193 
D02»SQRT 1 HX*HX4-0D1 > 

IF(002.LT.0.00001) GO TO 193 
QSR=( 1*-HX/D02)/DD1*PASS/PI4 
QTY( JS)=QTY( JS)+QSR*HZ 

QTZi JS 1 »OTZ I JS) -OSR*HY 

193 IF(PASS) 195*195il94 

194 PASS=-1. 

HY»-YB(Ln-YQ( IQ) 

GO TO 192 

195 LI = L1-^NDV 

196 JS=JS-l 

C* CALC MATRIX L 

198 IF(NF«lE*0J Go TO 210 
IF( ITYP#GT*7) 60 TO 200 
IF( lO.EQ.l ) GO TO 201 

200 IFdX.EO*!) GO TO 255 

READ (24) ((PLM(J»I)*J=1»NVY)*I=1*NF) 

GO TO 210 

201 DFMUX)»=OL( 1) 

IF( IX*NE.1) GO TO 204 
OLP( l)*(OLm+DL(NVY) )/2. 

DO 202 J»2*MVY 

202 DLP( J)»(DL( J-1)+DL< J) )/2. 

DO 203 J=l*MVY 

DO 203 I»ltNF 

203 PLM(J*I)»0.0 
GO TO 255 

204 DLX«(OL( 1)+0L(NVY) )/4. 
SLID-DLPUI^OLX 

DLP( l)*DLX 
00 205 J»2*NVY 
DLX=(0L<J-1)+DL( J) J/4« 


00034630 

00034640 

00034650 

00034660 

00034870 

00034660 

00034890 

0003490*r 

00034910 

00034920 

00034930 

00034940 

00034950 

00034960 

00034970 

00034980 

00034990 

00035000 

00035010 

00035020 

00035030 

00035040 

QOo35o&0 

)0035060 

00035070 

00035080 

00035090 

00035100 

00035.110 

00035120 

00035130 

00035140 

00035150 

00035160 

00035170 

00035180 

00035190 

00035200 

00035210 

00035220 

00035230 

00035240 

00035250 



217 


SLU)»DLPIJ>+DLX 

205 0LP(J)=DLX 

IF< rX.NE*NVXM) 60 TO 207 
DO 206 J*lfNVY 

206 SLU)*SL(JKDl.P( J) 

207 DO 208 J»l*NVY 
00 200 I=1»NF 

208 PLM( J*n=PMnx*I )*SL( J)+PlM( J* I) 

WRITE (24) {(PLMCJ*n *J=1*NYY) *I = 1*NF) 

C* SUM FOR AX»AY AND AZ 

210 tX«QBXP(l)-QBX(l)-»-QTX(l)-QTX<NVY) 
TY»QBYP( 1 )-OBY(l )+QTY( 1 )-QTY(NVY) 
TZ=Q8ZP( 1)-0BZ( U-»-QTZ(1)-0TZ(NVY) 
IF(NFr 212*212*214 
212 AX( IX)«TX 
AY(IX)*TY 
AZ(IX)*TZ 
60 TO 230 
214 00 220 1=1. NF 

AX( n'«TX»PLM( l*n+AX(I) 

AY( I ) = TY*PLM( i*n+AYin 
220 A2m*TZ*PLM( liD+AZlD 
rC«NF 

230 DO 250 J=2*NVY 

TX*0BXP( J)-QBX(J)+0TX( J)-QTX(J-l) 
TY-QBYP( J)-Q8Y( J)+QTY( J)-QTY( J-11 
TZ=QBZP ( J ) -QBZ ( J ) +QT Z ( J ) -QT Z ( J-1 ) 
IF(NF) 232.232.234 
232 IC»(J-1)*NVXM«HX 
AX(IC)*TX 
AY( 10»TY 
A2UC) = TZ 
60 TO 250 
234 DO 240 I-l.NF 
IC*1C+1 

AXI IC) = TX*PLM( J*I)+AX(IC) 

AYJ IC)»TY*PLM(„ J*I >tAYUCi. 

240 AZ( IC)»TZ*PtM( J.ii+AZUC) “ 

250 continue 
255 00 260 I=1*NVY 
QBXP( 1 )>(2BX( n 
OBYP( I)=QBY( I ) 

260 OBZP( n=Q8Z( n _ 


00035260 

00035270 

00035280 

00035290 

00035300 

00035310 

00035320 

00035330 

00035340 

00035350 

00035360 

>0035370 

00035380 

00035390 

00035400 

00035410 

00035A20 

00035430 

00035440 

00035450 

00035460 

00035470 

00035480 

00035490 

00035500 

00035510 

00035520 

00035530 

00035540 

00035550 

00035560 

00035570 

00035580 

00035590 

00035600 

00035610 

00035620 

00035630 

00035640 

00035650 

00035660 

00035670 

00035680 



GO TO 300 
270 IPAS»1 

IF(IX*EQ*1> GO TO 300 
READ (24) 

300 CONTINUE 
rewind 24 
C 

IF( ITYP.LT.17) 60 TO 320 
DO 310 I-1»NKF 
AYT»AY( I ) 

AVI n=AYT*SINDP+AZ( I)*COSDP 
310 AZm=-AYT*COSDP+AZ( I )*SINDP 
C 

320 WRITE (20) ( AX ( IC ) *AY ( IC) . AZ ( IC ) * IC=1 *NKF) 
400 CONTINUE 

WRITE (6*450) ITYP 

450 FORMAT ( 21H0 ** COMPLETED MATRIX* 14) 

RETURN 


*DECK AQXVW 

SUBROUTINE AQXVW(NQ*ITYP) 

C 

C* CALC MATRIX-A (Q ON X-COMPONENT AND VORTICES ON WING) 

C 

COMMON/OAT/ 0A(5000) 


C 


00035690 

00035700 

00035710 

00035720 

00035730 

00035740 

00035750 

00035760 

00035770 

00035780 

00035790 

00035800 

00035810 

00035820 

00035830 

00035840 

00035850 

00035860 

00035870 

00035880 

00035890 

00035900 

00035910 

00035920 

00035930 

00035940 


C 


C 


EQUIVALENCE (DA(1281 

1 * (DA( 1202) *W0Z) *(OA( 3382) *XLW) 


COMMON/CRG/ PI »PI4 *RC *BETA »SlN0P*COSDP 
COMMON/ CFG/ IDB* IDF» I DO ( 10 ) *NKW 
COMMON/CPW/ HWS*NTl »NTO*DLl »DLOfNE2*NE3 
1 *NE5*NT8«NU»NW*NVC»NVS*NJC»NJS 


LARGE 

1 

2 

3 

4 

5 

6 

7 

8 


DM1 (51700) 
*EV(52) 
*YB(600) 


tCFi (50) 

*ET(52) 

»C(40*40> 

*C0STT(52) 

«XR(600) 

»ZB(600) 


*XLV(52) 
>YBI ( 600) 
*CFJ( 50) 
»XLT(52) 
»S(5l»lO) 
*DZLE(52) 
*XB1(600) 
«ZBI(600) 


♦XTLV(52) 

*YBR(600) 

*STH(50) 

*XTLT(52) 

*DM4{400) 

*COSTV(52 

*XBR(600) 

»ZBR(60Q) 


)*WNW) *(DA(1270) *WNVC) 00035950 

00035960 

00035970 

00035980 


fDM2( 8840) 

*DM3( 1800) 
♦ACT(50) 

.TSI (52»40) »DM5 
) *SINTV(52) 

*DM6(9761 ) 


00035990 
00036000 
00036010 
00036020 
00036030 
00036040 
00036050 
00036060 
>0036070 
2o80) 00036o8o 
00036090 
00036100 
00036110 



c 

c* 


c* 


9 ♦XQ(650) fYa(650) *ZQ<650J 

* *AX<250) *AY(250) ♦aZ(250) 

* tSEUOO) *SEV(30) *SEW(30) 

initial and calc matrix a 

XLW2»A*«XLW*XLW 

NE1=NE2 

NVSH*NE2+1 

NE4=NE3+7 
NE6=NE3+3 
IN0T»0A(20OOJ 
IF( INDT*NE*0) NE1=NVSH 
DTH=P1/WNVC 
00 300 10=1 *N0 
00 12 I=1»NKW 
AXIIJ=0#0 
AY ( 11*0.0 
12 AZ(I1*0.0 

IFIIOF.EO.O) GO TO 14 

CALL AOXVWR‘{iQ»NTO*NE3»XB*YB*Z8V''“' 

CALL AQXVWRI IQ.NTI »NE6*XBI .Y8I »ZBU 
14 IFMOB.NE.O) CALL AQXVWRI IQ »NT8 .NE5 .XBR » YBR *ZBR ) 
CHORDWISE LOOP 


TUV»0* 

TVV»0* _ _ 

TWV*0,.'“ 

00 250 I=1.NVC 
lR»4*I-3 

IF(IOF.EQ.d) IR=IR+1200 
00 15, IW = 1»NW 
SEU(IW)*0.0 

SEvnw)*o.b~ 

15 SEWdWjsO.O 

C* SPANWISe LOOP 

XV3»XLT( l')+XTLTU)»CFlTn#COSTT( ll 
XV2»XLV( D+XTLV ( 1)*CFI( n*COSTV<l) 

XVT»XLV( NVSm 4-XTLV ( NVSH )»CF I ( IJi»COSTV { NVSH ) 

DO 200 I£«i tNEl 

IF( lE.NE.l) GO TO 22 
TL»2./DL0 

TPT« I XVT-XV3 ) *TL/HWS 
GO TO 24 

22 IF(IE.NE.(NE3+4n GO TO 26 


00036120 

00036130 

00036140 

00036150 

00036160 

00036170 

00036180 

00036190 

00036200 

00036210 

00036220 

00036230 

00036240 

00036250 

00036260 

000362TO 

00036280 

00036290 

00036300 

00036310 

00036320 

00036330 

00036340 

00036350 

00036360 

00036370 

10036380 

00036390 

00036400 

00036410 

00036420 

00036430 

00036440 

00036450 

00036460 

00036470 

00036480 

00036490 

00036600 

00036510 

00036520 

00036530 

00036540 



220 


Tl=2./DLI 
24 0U4=2.»TL/8ETA 
T0Y*HWS/TL 
SC=TDY 

dtx=dth/sc 

26 KT«IE 

WZV=W02-XTLV< IE)*CFH I) *61 N TV UE) +02LE UE > 

2VW=(Z0( I0)«WZV*BETA) /SC 

IF( IN0T,NE*0) GO TO 40 

IF( IE-6T.NE5> GO TO 200 

IF(IEel.E*NE3> GO TO 48 

IF( 1E*GE.NE4) go to 48 

GO TO 200 

40 IF(IE.NE*NEH GO TO 42 
TPI-TPT 
TPO*-TPT 
TL*2*/DL0 
0L4»2**TL/BETA 
TDY*HWS/TL 
SC»TOY 
DTX»DTH/SC 
YV»KWS 

XVW*(XQ( IO)-XVT)/SC 
GO TO 60 

42 IF(IE*GT.NE5) GO TO 43 
IF(IE*LE*NE3) GO TO 48 
IF( IE.GE#NE4) GO TO 48 

43 TPO»UB( IRJ-XB( IR+1) )/(YB( IR)-YB( IR+l) ) 
TPI=TPO 

46 YV = *5»UBnR)+Y8UR+l) ) 

XVW»<XQ( IQ)-CXB< IR)+XB< IR+1) )/2*)/SC 
ZVW=(ZO( IQI-(ZB< IR)+ZB< IR+1) )/2.)/SC 
IR«IR+1 

IF( IE*EQ*NE6) IR=IR+597 
IF( IE*EQ*CNE3+6n lR*IR+597 
GO To 60 
48 YV=HWS*EV( IE) 

IF( IE*NE.i ) GO TO 50 

TPI»TPT 

TPO»TPT 

XVW»4**IXQ( IQ)-XV2)/SC 

ZVWs4«»ZVM 

GO To 60 


00036550 

00036560 

00036570 

00036580 

00036590 

00036600 

00036610 

00036620 

00036630 

00036640 

00036650 

00036660 

00036670 

00036680 

10036690 

00036700 

00036710 

00036720 

00036730 

00036740 

00036750 

00036760 

00036770 

00036780 

00036790 

00036800 

00036810 

00036820 

00036830 

00036840 

00036850 

00036860 

00036870 

00036880 

00036890 

00036900 

00036910 

00036920 

00036930 

00036940 

00036950 

00036960 

00036970 



221 


50 IFtIE-ME4) 58»52*5<* 

52 XV1»XLT( IE)+XTLT( IE ) *CF I ( I) *C0STT ( IE ) 
54 KT=KT+1 

58 XV2*XLV( IE»+XTLV( rE)*CFI( I )*C0STV( IE) 
XV3»XLH KT ) +XTLT ( KT ) *CF I ( I) *C0STT (KT ) 
XyW=(XQ( IQI-XV2)/SC 
TPI=(XV2-XV3 I/TOY 
TP0*(XV1-XV2) /TDY 
IF( IE.EQ.NE2) GO TO 60 
IF(ET(KT)*LT.0,0) TPI=TPO 
60 ZV2=2VWiH»2 

X22»XVW»»2+ZV2 

2L4=ZVW*DL4 

IPASS-1 

70 YVWa ( YQ t I Q ) -YV » / SC 
EVI*0. 

EVO«0, 

IFi(YVW*»2+ZVW**2)*GT,XLW2) GO TO 120 
T12*TPI*»2+1* 

T02»TP0«*2+1. 

XTI-XVW+TPI 
XTO*XVW-TPO 
IF(lE.EQ.l) YVW=4.*YVW 
YCP»YVW>1. 

YP2«YCP»*2 

YCM*YVW-1* 

YM2*YCM<Hf2 

SQ0»S0RT(XT0**2+YM2+ZV2 > 
SQI»S0RTIXTI#*2+YP2+ZV2 ) 

SQR»SOR T 1 XZ2+YVW**2 ) 

XYTI»XVW-YVW*TPI 

XYTO=XVW-YVW*TPO 

R12»<XTl/S0I-H*)/( YP2+ZV2) 

R22*XYTI**2+ZV2#TI2 

R32»XYT0»*2+ZV2»T02 

R42» ( XTO/SOO+1* ) / ( YM2+ZV2 > 

£X«0«0 

EY*R12-R42 

eZ=YCM»R42-YCP*R12 

IF(R22/TI2*te*l.E-10> GO TO 80 

YXT1»YVW+XVW«TPI 

EX»U YXTI+T I2 )/SQl~YXT I/SORJ/R22 
EY*EY-EX»TPI 


00036980, 

00036990 

)00 37000 

00037010 

00037020 

00037030 

00037040 

00037050 

00037060 

00037070 

00037080 

00037090 

00037100 

00037110 

00037120 

00037130 

00037140 

00037150 

00037160 

00037170 

00037180 

00037190 

00037200 

00037210 

00037220 

00037230 

00037240 

00037250 

00037260 

00037270 

00037280 

00037290 

00037300 

00037310 

00037320 

00037330 

00037340 

00037350 

00037360 

00037370 

00037380 

JOO 37390 

00037400 



222 


evi=ex*xyti 

EZ=E2-EV1 

80 IF<R32/T02*LE.1»E-10) GO TO 90 
YXT0=YVW+XVW*TP0 

EXX*« YXT0/SQR+( T02~YXT0)/SQ0)/R32 

EX=EX+EXX 

E¥=EY-EXX«TP0 

'iV0=-EXX*XYT0 

EZ*E2-^EV0 

90 IFl INDT*EQ#0) GO TO 99 
IF( lE.EQ*!) GO TO 98 
STS=1*/SQR 
EUI=1,/SQI-STS 
EUO»1*/SOO-STS 
EWI*0* 

IF(R22/TI2*LE.1.E-10> GO TO 92 
PII=SQRT(TI2) 

EWI*i YXTI/SOR-( YXTI+TI2 )/SOI »*ZVW*PI I/R22 
92 EWO»0, 

rF(R32/TO2.LE.l*E-10) GO TO 94 
P0I*SQRT(T02) 

EWO-< YXTO/SQR-< YXT0-T02 )/SQO»*ZVW»POI/R32 
94 ST = TSI( IE»n*STH( n*OTX 
IF( lE.NE.NEl) GO TO 96 
1F( IPASS*EO*0*OJ GO TO 97 

96 C4=ST/TI2 

TU V* TUV- ( EU I# TP I -E V I) *C4 
TVV*TVV-(EVI*TPI+EUn*C4 
TWV»TWV-EWI»PI r»C4 
IF( IE.Eq*nE1> GO TO 130 

97 C1*ST/T02 ^ 

TUV“TUV+(EUO*TPO-EVO}*C1 
TVV»TVV-f ( EV0*TP0+EU0) *C1 
TWV=TWV+EWO*POr*Cl 

1F( IE«EQ«NE1) go to 200 

98 IF< IE.GT*NE5) GO TO 120 
IFUE*GE.NE4) GO TO 99 
IF( IE«GT*NE3> GO TO 120 

99 EX=EX»ZL4 
ey=EY*ZL4 
EZ=eZ*DL4 

IF(WNW,NE*0,0) go to 100 
SEU( IE)=EX+SEU( IE) 


00037410 

00037420 

00037430 

00037440 

00037450 

00037460 

00037470 

00037480 

00037490 

00037500 

00037510 

00037520 

00037530 

00037540 

00037550 

00037560 

00037570 

00037580 

00037590 

00037600 

00037610 

00037620 

00037630 

00037640 

00037650 

00037660 

00037670 

00037680 

00037690 

)0037700 

00037710 

00037720 

00037730 

00037740 

00037750 

00037760 

00037770 

00037780 

00037790 

00037800 

00037810 

00037820 

00037830 



SeVI 1E)=EY+SeVI IE) 

SEW( IE)»eZ+SEW( IE) 

GO TO 120 

100 DO 110 IW=1*NW 

SEunw)=SEUnW)+EX*S( IE*IW) 
SEV( IW)»SEV( IW)+EY*S( IE»IW) 

no SEW( iv()»sew( iw)+E^*s( iE*i»^) 
120 IFnPASS.EO^OI GO TO 190 
IFi IOB.NE.O) go to 130 
IF( IE,E0*NE2) GO TO 200 
130 IPASSaO 
TPXa-TPl 
TPIa-TPO 
TPO»TPX 
YV»“YV 
GO TO 70 
190 XV1*XV3 
200 CONTINUE 

IF(WNW*NE*0<0) GO TO 204 
seu( 1»»4**SEU< U 
SEV( 1 >»4**SEV< 1 ) 

SEW( 1 )=4#*SEW( 1 ) 

204 MY»0 

00 210 IU*1*NU 
DO 210 IW*1*NW.. 

AX(MY)«AX(MY)+SEU( IWJ*C(I*IU) 
AY(MY)»AY«MY)+SEV( IW)»CtI»IO) 
210 AZ(MY)*A2(MY)+SEW{ IW)*C(I*IU) 
250 continue 

TUV»TUV/PI4/BETA 

TVV*TVV/PI4 

TWV=TWV/PI4 

IFUTYP.Lt.lB) 60 TO 290 
TVTaTVV 

TVVsTVT*SINDP+Ttt<V»COSDP 
TwV«-TVT»C0S6p+TWV»siNDP 
DO 260 I=1#NKW 
AYT=AY<n 

AY ( n »A YT*S INDP+AZ ( I ) «C0SDP 
160 AZ ( I) a-AYT*C0SDP-fAZ ( I ) *S I NDP 


00037840 

00037850 

00037860 

00037870 

00037880 

00037890 

00037900 

00037910 

00037920 

00037930 

00037940 

00037950 

00037960 

00037970 

00037980 

00037990 

00038000 

>0038010 

00038020 

00038030 

00038040 

00038050 

00038060 

00038070 

00038080 

00038090 

00038100 

00038110 

00038120 

00038130 

00038140 

00038150 

00038160 

00038170 

00038180 

00038190 

00038200 

00038210 

00038220 

00038230 

00038240 

00038250 

00038260 



ro 

ro 


290 write <21) (AXUU) *AY( IU) *AZ< IU) ♦ IU=1 *NKW) *TUV*TVV»TWV 
300 CONTINUE 

WRITE (6.A50) ITYP 

450 FORMAT (21H0 ** COMPLETED MATRiXfIA) 

RETURN 

END. 

*DECK AQXVWR 

SUBROUTINE AQXVWRI iQtNVT »NEVX »XB » YB »ZB J 
C 

C* CALC MATRIX-A <Q ON X-COMPONENT AND VORTICES ON ROOT) 

C 

COMMON/DAT/ DA(5000) 

C 

large XB(l)«YB(l)*ZBm 

C 

EQUIVALENCE ( DA ( 1281 ) »WNW ) » 1 DA ( 3382 ) »XLW ) 


C 

C 


C 

C 


C 


COMMON/CPW/ IDD(9) ♦NU*NW.NVC 


LARGE 

1 

2 

3 

4 

5 


OMK51700) *DM2( 14552) 

»S(51*10) *CSEC(40*10) ♦DM3(17729) 

>XO(650) *YQ(65U) tZQ(650) 

*AX(250> *AY(250) »AZ(250) 

»QBX(600) »QBY<600) *QBZ<600) 

»QTX<600) »QTYI600) *QTZ(600) 


INITIAL 

NVCT»NVC+NVT-1 

NPAS=0 

IF(ABS(<-YB(4)-YQ< 10) )/IYBI 1)-YB(2) ) ).GT«XLW) NPAS=1 
NVX AND NVY LOOPS 

LI«1 

LF»6 

JS*0 

DO 300 IX»1*NVCT 
X*0 

IF( 1X«GT*NVC) JS=JS-4 
00 200 IS=l*4 


JS*JS+1 
20 IPASS=l 

IFt IX.GT.NVC) IPASS*3 
30 TY1 sYB(LF)-Y 8<LI ) 
TY2=YB(LF)-Y0nQ) 


00038270 

00038280 

00038290 

00038300 

30038310 

)0038320 

00038330 

00038340 

00038350 

00038360 

00038370 

00038380 

00038390 

00038400 

00038410 

00038420 

00038430 

00038440 

00036450 

00038460 

00038470 

00038480 

00038490 

00038500 

00038510 

00038520 

00038530 

00038540 

00038550 

00038560 

00038570 

00038580 

00038590 

00038600 

00038610 

00038620 

00038630 

00038640 

00038650 

00038660 

00038670 

00038680 

00038690 



TY3=YB(Un-YQ( IQ) 

GO TO 50 
40 IPASS»2 

IF(NPAS.EQ.O) GO TO 44 
IF(K.EQ,0» GO TO 160 
60 TO 70 

44 TY1=YB<LIJ-YB<LF) 

TV2=-YB(LF)-Y0< 10) 

TY3s-YBtLl )-Y0( IQ) 

50 rxisX8(LF)-XB<Ln 
TX2=XB(LF)-XQ( IQ) 
TX3«XB(Ln-XOnO) 
TZl*ZBILF)-2BU.n 
TZ2»ZB(LF)-2Q( IQ) 

TZ3»ZB(LI)-ZQ( IQ) 
HN=TX2»TX1+TY2*TY1+TZ2*TZ1 
H0*=TX1**24TY1**2 + TZ1**2 
SQHD»SOPT(HO) 

IF(SQHD.GT*0. 00001) GO TO 52 
QSR*0#0 
GO TO 54 
52 HT*HN/HO 

HX»TX2-HT*TX1 

HY»TY2-HT»TV1 

HZ«TZ2-HT*TZ1 

SMP»SQRtlHX**2+HY**2+HZ**2) 
SRF*HN/S0RT I TX2»*2+TY2*»2+TZ2**2 ) 
rtI®TXl*TX3+TYl*TY3+TZl*TZ3 
SRI*HI /SORT ( TX3*»2+TY3*»2+TZ3**2 ) 
QT*(SRF-3RI )/SQHD/SHP 
TX«TY2*TZ1-TZ2*TY1 
TY=TZ2»TX1-TX2*TZ1 
TZaTX2»TYl-TY2*TXl 
QSRaQT/SQRT I TX»*2+T Y**2+TZ*#2 ) 

54 1F(K*EQ*0) go to 140 

LATERAL VORTICES 
IF(IPASS.EQ.2) GO TO 60 

■ 'QBXQS)«QSR»^ 

Q8Y( JS)»QSR*TY 
0BZ( JS)»OSR*TZ 
LF»LI 
LI=LF+1 
GO TO 40 


00038700 
00038710 
00038720 
00038730 
00038740 
00038750 
00038760 
00038770 
00038780 
00038790 
00038800 
00038810 
00038820 
00038830 
60038840 
00038850 
00038860 
00038870 
00038880 
00038890 
00038900 
00038910 
00038920 
00038930 
00038940 
00038950 
00038960 
00038970 
00038980 
00038990 
00039000 
00039010 
10039020 
00039030 
00039040 
00039q50 
00039060 
000 390 TO 
00039000 
00039090 
00039100 
00039110 
00039120 



923 


6U QBX ( J3>sQSR*TX+QBX ( JS) 

QBr< JSJ=QSR*TY+QBY< Ji>) 

0B2 { JS ) *QSR*T2+QB2 ( JS ) 

70 LF=U+4 
K=0 

GO To 20 

C* LONGITUDINAL VORTICES 

lAO IFUPASS.GE.2) 60 TO 150 
QTX( JSI=QSR*TX 
QTY( JSI*QSR*TY 
QT2( JS)=QSR»TZ 
IA5 LF«LI 
LI«LF+4 
GO TO 40 

150 QTXUS»=OSR*TX+QTX( JS» 

QTY { JS ) *QSR»TY+QTY ( JS > 
0T2US)*0SR«TZ+QTZ( JS» 

IF( IPASS*E0.3) GO TO 145 
160 IF( IX*LE*NVC» go TO 190 
LI»LF+1 
LFsLI+4 
GO TO 200 
190 LI*LF 
LF»L1+1 
K*l 

200 CONTINUE 

1F( IX«GT«NVC) GO TO 300 
LI=L1+1 
LF=Ll+4 
300 CONTINUE 

C 

C* CALC CONTRIBUTION FROM 

jS«JS-4 
DO 320 IS*1.4 
jS-jS+1 
PASS»1. 

HY«Yb(LI T-YQ( IQJ 
HX»XBILIJ“XQ( IQJ 
HZ»ZBILI)~Z0( IQ) 

310 ODl«HY*HY+HZ#HZ 

IF(001#LT*0, 00001) GO TO 315 
DD2=S0RT (HX*HX+0D1 ) 

IF(DD2*LT. 0,00001) GO TO 315 


00039130 
00039140 
00039150 
00039160 
00039170 
00039180 
00039190 
00039200 
00039210 
00039220 
00039230 
00039240 
00039250 
00039260 
00039270 
00039280 
00039290 
00039300 
00039310 
00039320 
J0039330 
00039340 
00039350 
00039360 
00039370 
00039380 
00039390 
00039400 
00039410 
00039420 
0003 

TRAIL VORTICES 00039430 

00039440 

00039450 

00039460 

00039470 

00039480 

00039490 

00039500 

00039510 

00039520 

00039530 

00039540 



0SR*ll.*-HX/0D2)/DDl*PASb 
QTY( JS)»QTY( JS)+OSR*HZ 
QTZ ( JS ) =0T2 ( JS ) ->QSR*HY 
315 IF(NPAS*EQ.l ) GO TO 320 
IF(PASS.LT.O. ) Go TO 320 
PASS®-1* 

HY=-YB(Ln-YQ{ 10) 

GO TO 310 
320 LI*LI+1 
C 

c* SUM For ax»ay and az 

Nb4*NVC+1 
DO 340 1*1.3 

N»N+1 ” ' 

Q8X(N)*0*0 
OBY1N)*0,0 
340 OBZ(N)=0.0"" 

N*0 

00 360 J_*1.NVC 

N»N+l ' 

00 360 1*1.3 
N*N+1 

EX*OTX ( N- 1) -QTX ( N ) +QBX ( N+4 ) -QBX ( N ) 
E YaQTY ( N-1 J -OTY t N ) +Q8Y ( N+4 ) -OB Y ( N ) 
EZ *QTZ ( N- 1 ) -QTZ ( N ) +QBZ ( N+4 ) -QBZ ( N ) 
tE«NEVX+I 

TF(WNW.NE.O.O) GO TO 348 
K»IE 

00 342 IU*i*NU 

AX ( K) «EX*CSEC ( J * I U ) +AX ( K ) 

AY(X)»EY*CSECU»IU)+AY(X) 

A Z ( K ) « E Z* C S E C U ♦ I U ) + A Z t lO 
342 K»IC+NW 

GO TO 360 
348 K*0 

DO 350 IU=1.NU 

DO 350 lwn*NW__ 

K*X+1 ~ 

SCS»3( IE.1W)*CSEC( J.IUI 
AX(K)*EX#SCS+AX< K) 
AY(X)»EY*SCS+AY(lO 
350 AZ(K)»EZ*SCS+AZ (|C) 

360 CONTINUE^ _ 


00039550 

00039560 

00039570 

00039580 

00039590 

00039600 

00039610 

00039620 

>0039630 

00039640 

00039650 

00039660 

00039670 

00039680 

00039690 

00039700 

00039710 

00039720 

00039730 

00039740 

00039750 

00039760 

00039770 

00039780 

00039790 

00039800 

00039810 

00039820 

00039830 

00039840 

00039850 

00039860 

00039870 

Q0039880 

00039890 

00039900 

00039910 

00039920 

00039930 

00039940 

00039950 

00039960 

00039970 



ro 

ro 

03 


RETURN 

END 

♦DECK AOWVW 

SUBROUTINE AQWVW UTYP) 

C 

C* CALC MATRIX-A (Q ON WiNG AND VORTICES ON WlNG> 

C 

COMMON/DAT/ DA (5000} 


C 

C 


C 

C 


C* 


equivalence (DA< 1270) »WNVC) • (DA ( 1281 1 tWNW) ♦ < DA ( 3382 ) *XLW ) 


COMMON /CRG/ 
COMMON/ CFG/ 
COMMON/CPW/ 

L 

LARGE 


1 

2 

3 

4 

5 

6 

7 

8 
9 
« 


PIfPl4*RC»BETA 
ID8*IDF»10Dt 10) tNKW 
HWS*NTI*NT0*DLI *DLO*NE2tNE3 
»NE5*NTB*NU»NW»NVC»NVS*NJC*NJS 
DMU51700) 


*EV(52) 

♦UV130*30) 

*XB<600) 

♦YBtGOO) 

*Zq(6U0) 

*CFI (50) 

♦ET(52) 

tC(40*40) 


»XLV(52) >XTLV152) 

.UVP( 30*30) ♦VV(30»30) 


>XBI(600) 

♦YbI ( 600) 

♦ 4BK600) 

»CFJ(50) 

♦XLT(52) 

, *S(51 *10) _ _ _ 

*TSI (52*40) *T2I ( 52*40) *DM3( 13569) 
*XO(650) *YQ<650) *ZQ(650) 

*AX(250) *AY(250) »AZ(250) 


>XBR(600) 
♦YbR(600) 
♦ZBR(600) 
*STH(50) 
*XTLT(52 ) 
*CSEC(40*10) 


♦DM2 ( 3440) 
*VVP(30*30) 


♦ACT (50) 


*SUMES( 30) 


NE1*NE2+1 

nvsh=nei 

NE4*NE3+7 

NE6»NE3+3 

INDT«DA< 2000) 

IF(INDT*£0*0) NE1-NE2 

DTH»PI/WNVC»*5 

Q ON WING LOOP 

iCeO’ 

00 350 KP*1*NJS 
DO 340 J=l*NJC 
PUV*0# 

PVV«0* 

TUV«0, 


00039980 

00039990 

00040000 

00040010 

00040020 

00040030 

00040040 

00040050 

000400G0 

00040070 

00040080 

00040090 

00040100 

00040110 

00040120 

00040130 

00040140 

00040150 

00040160 

00040170 

00040180 

00040190 

00040200 

00040210 

00040220 

00040230 

00040240 

00040250 

00040260 

00040270 

00040280 

00040290 

00040300 

00040310 

00040320 

10040330 

00040340 

00040350 

00040360 

00040370 

00040380 

00040390 

00040400 



229 


TVV-0, 

'50 12 I=1»NKW 
AX(I)=0*0 
AY( I)»0.0 
12 AZ(n»0*0 
IC»IC+1 
XP*XQt IC) 

EVP»YQ( lO/HWS 

IF(1DF.EO.O«ANO«IDB.EQ*0) GO TO AO 
IFUDF*E0.0J GO TO lA 
CALL AQXVWRC IC»NT0»NE3*XB*Y8*ZB) 
CALL AQXVWR( IC*NTI *NE6*X8I »YBI *ZBI> 
lA IF(IDB.NE*0) CALL AQXVWR( IC»NTB*NE5 

DO 32“lil»NKW 

32 AZ( n»>AZ( I ) 

C I LOOP 

AO DO 330 I»1*N"VC' 

IR.4#I-3 

IF(IOF*EQ*0) IR=IR+1200 
DO 100 NS*1>NW 
100 SUMES(NS)s0«0 
C ETAV LOOP 

XV3*XLT<l)+XTLT(l)*CFI( I) 

XV2»XLV( 1 KXTLVm*CFK I ) 
XVT*XLV(NVSH>+XTLV(NVSHJ*CFI( I ) 

DO 310 KV=l*NEi 

IF(KV*NE«1) go TO 102 
TL*2*/DL0 

.TPT=(XVT-XV3)«TL/HlSS 
GO TO lOA 

102 IF(KV*NE.(NE3+A) ) GO TO 106 

. TL»2./DLI ' 

lOA DLA»2,*TL/BETA 
X2 «Tl/HWS 
DTX«X2*DfH 

tdy*hws/tl 

106 KT-KV _ __ 

IPASS*! 

EVY»EV(KV) 

IF( IN0T«NE*0) GO TO 110 
1F(KV*GT,NE5) go to 310 
if(kv,le*ne3) go to IAO 
IFUV*G£*NEAl GO TO IAO 


qooaoaio 
000A0A20 
000A0A30 
OOOAOaAO 
000A0450 
00040460 
00040470 
00040480 
00040490 
00040300 
00040510 
00040520 

XBR»YBR*ZBR) 00040530 

00040540 

00040550 

00040560 

00040570 

00040580 

00040590 

00040600 

00040610 

00040620 

OOOA0630 

10040640 

00040650 

00040660 

00040670 

00040660 

00040690 

00040700 

00040710 

; : ' ■ 00040720 

00040730 

00040740 

00040750 

00040760 

00040770 

■00040780 

00040790 

00040800 

00040810 

00040820 

00040830 



GO TO 310 

110 IF(KV.NE*NE1> go to 120 
TPIsTPT 

tpo=-tpt 

TL=2./DL0 

DL4»2.*TL/BETA 

X2-TU/HWS 

DTX*X2»DTH 

T0Y=HWS/TL 

XC»X2*(XP-XVT) 

GO TO 190 

120 IF(KV«GT«NE5) GO TO 121 

IF<KV*LE*NE3) GO TO 140 

1F(KV*GE.NE4I GO TO 140 

121 TPO'iXBi IR)-XB( lR+in/tY8< IRI-YB( IR4-1) ) 
130 EVY*(YB( IR>+YB( lR+1) )/2*/HWS 

XC=X2*(XP-{XBt IR)+X b( IR+ 1 n/2.) 

TPI«TPO 

IR=IR+l 

IFIKV-EQ.NE61 IR»lR+597 
IF(KV*EQ*(NE3+6H lR»lR + 597 
GO TO 190 

140 IF(KV,NE*1) go TO 150 
TPI-TPT 
TPO=TPT 

XC=4.*X2*(XP-XV2 ) 

60 TO 190 

150 IF(KV-NE4) 180.160*170 
160 XV1=XLT(KV)+XTlT( KV)*CFM I ) 

170 KT«KT+1 

180 XV2=XLViKVJ+XTLV(KV)*CFI< n 
XV3aXLT(KT J+XTLT(KT)*CFI < I ) 
TPI»(XV2-XV3)/TDY 
TP0*(XV1-XV2 )/TdY 
IF(XV«£0.NE2I GO TO 182 
IF(ET(KT).LT.0.0) TPI=TP0 
182 XC=X2*(XP-XV2) 

190 YC»TL*(EVP-EVY> 

EVI=0. 

EVO*0. 

IF<ABS(YC/2.1*GT*XLW) GO TO 302 
IF(KV.EQ.l) YC*4**YC 
YCP'YC+l. 


00040640 

00040850 

00040860 

00040870 

00040880 

00040890 

00040900 

00040910 

00040920 

00040930 

00040940 

J0040950 

00040960 

00040970 

00040980 

00040990 

00041000 

00041010 

00041020 

00041030 

00041040 

00041050 

00041060 

00041070 

00041080 

00041090 

00041100 

00041110 

00041120 

00041130 

00041140 

00041150 

00041160 

0004H70 

00041180 

00041190 

00041200 

00041210 

00041220 

00041230 

00041240 

00041250 

00041260 



YCM*YC-1* 

XTO»XC-TPG 

XTI«XC+TPI 

SQO»SQRT t XTO**2+YCM**2 ) 
SQI=SQRT(XTI»*2+YCP**2) 

EC« ( XT I /SO I + 1 • J / YCP- ( XTO/SQO+ 1 . ) / VCM 
SQC»SQRT ( XC**2-»>YC**2 ) 

C1=TPI#*2+1. 

C4»C1 

C2»XC-YC»TPI 

IF(C2*»2/C1.LE#1.E-10) GO TO 230 
C3«YC+XC*TPI ^ 

EVI»C (CS-f-Cl ) /SQl-C3/GQC)/C2 

230 C1*TP0**2+1* 

C2*XC^YC»Tpo 

irCC2**2/Cl.LE.l.E-10) GO TO 250 
C3»YC+XC*TP0 

240 EV0»( CC3-Cl)/SOO-C3/SQCl/C2 
250 IFUNOT.EO.O) GO TO 290 

IFikV.EO*U GO to 290 ' 

STS*I*/SOC 
EUI»l*/SQI~STS 
EU0»1*/S00-STS' ■ " 

AYC»ABS(YC/X2) 

ST«TSHXV*I )*STH( n*DTX 
' SP«T2I (kv * I ii /STH ( I )*DTX*'2 .0 " 

TVI«ST#EVI 
TVO*ST*EVO 
KX»KV*IPASS 

260 IFUV.NE.NE1) GO TO 280 
IFncX.NE.NEl) GO TO 270 
262 PUV»PUV-SP*(EUI*TPl-EVr )/C4 
PVV»PVV-SP»<EVI»TPI+E0I )/C4 
EUI»ST*EUI 

TUV«TUV-(EUI»TPI-TV n /C4 
TVV* TVV- < TV I #TP I +EU I ) /C4 
GO TO 305 _ 

270” PUV»PUV+SP* f e'uo* tpo-evoV/ ci T 

PVV»PVV+SP* ( EVO*TPO+EUO ) /Cl 

euo-st*euo 

TUV» TUV+ < EU0*TP0-TV0 1 /c 1 
TVV«TVV+ t TV0*TP0+EU0 » /Cl 

60 TO 3J0 . 


00041270 

00041280 

00041290 

00041300 

00041310 

00041320 

00041330 

00041340 

00041350 

00041360 

00041370 

00041380 

00041390 

00041400 

00041410 

00041420 

00041430 

00041440 

00041450 

00041460 

00041470 

00041480 

00041490 

00041500 

00041510 

00041520 

00041530 

00041540 

00041550 

00041560 

00041570 

00041580 

00041590 

00041600 

00041610 

00041620 

00041630 

00041640 

10041650 

00041660 

00041670 

00041680 

00041690 



232 


280 PUV5PUV+SP*< (EU0*TP0“EV0)/C1-<EUI*TPI-EVI) /C4) 
PVV=PVV+SP*{ <E^/0*TP0+eU0)/Cl~(EVI*TPI+EU^/C<^) 
EUI»ST*EUI 
euo»sT*euo 

TUVsTUV+(EU0*TP0->TV0)/Cl-<EUI#TPI-TVI )/C4 
TVV*TVV+ ( TVO*TPO+EUO ) /Cl- ( TV I*Tp I +EUI ) /C4 

290 IF(KV*GT*NE5 J GO TO 302 
IFIKV.GE.NEA) GO TO 291 
IF(KV*GT.NE3) GO TO 302 

291 EC«<EC+EVI-EVO)*DL^ 

IF(WriW,NE.O.O) GO TO 292 
SUMES ( kV > * SUWE S < KV > +E C 
GO TO 302 

292 DO 300 NS*1*NW 

300 SUMES(NS)aSUMES<NS) +EC*S(KV*NS) 

302 IF( IPASS«EQ*0) 60 TO 308 
IFUDB.NE.O) GO TO 305 
IF<KV*E0*NE2I GO TO 310 
305 IPASS*0 
EVY»-EVY 
TPX*“TPI 
tpi.-tpo 

TPO»TPX 
GO TO 190 
308 XV1*XV3 
310 CONTINUE 

IF(WNW*EQ.0.0) SUMESt 1 > =4.*SUMES< 1 ) 

MY»0 

312 DO 314 NC»1*NU 
DO 314 NS‘ltNW 
MY«MY-^1 

314 A2(MY>»AZ(MYI+SUMES(NSI*C( I #NC» 

330 CONTINUE 

WRITE (21) (AZ(MY) »MY*1*NXW) 

UVP(KP#J)*PUV/P 14/BETA 
VVPUP.J)*PVV/PI4 
UV(KP«J)«TUV/P 14/bet A 
340 VV(KP*J)»TVV/PI4 
350 CONTINUE 

IFUNDT.NE.O) call aqwvwt 
write (6*450) ITYP 

450 FORMAT ( 21H0 ** COMPLETED MATRIX* 14) 


00041700 

00041710 

00041720 

00041730 

00041740 

00041750 

00041760 

00041770 

00041780 

00041790 

00041800 

00041810 

00041820 

00041830 

00041840 

00041850 

00041860 

00041870 

00041800 

00041890 

00041900 

00041910 

00041920 

00041930 

00041940 

00041950 

i004l960 

00041970 

00041980 

00041990 

00042000 

00042010 

00042020 

00042030 

00042040 

00042050 

00042060 

00042070 

00042080 

00042090 

00042100 

00042110 

00042120 



RETURN 

END 

*DECK AOWVWT 

subroutine AQWVWT 
C 

C* CALC additional INFLUENCE OF WING THICKNESS ON 

C VELOCITIES DUE TO 8REAKS*ETC. 

C 

COMMON/ DAT/ OAlSOOOl 
C 

equivalence (0A( 1270J *WNVC» »<DA< 3382> *XLW) 

C 

C0MM0N/CR6/ PI #PI4*RC*BETA 
COMMON/CFG/ IDB»IDF " 

COMMON/CPW/ HWS*NTI *NT0*DLI *0L0*NE2»NE3 


1 ■' 

*NE5 *NTB *NU 

tNW»NVC*NVS*NJC»NJS 


large 

1 

DM1(51700> 

♦EV(52) 

*XLV(52) 

♦XTLVI52) 

*DM2t3440) 

2 

*UV(30*30> 

fUVPt 30*30) 

*VVI30»30) 

*VVP(30*30) 

3 

♦ XBU800I 

*YB<1800) 

♦ZB( 1800) 


4 

*CFIt50) 

*CFJ(50) 

♦STH(50) 

♦ACT(50) 

5 

fET152) 

*XLTI52) 

♦XTlT(52) 


6 

*DM3(2510) 

*TSII52*40) 

*T21(52*40) 


7 

fDM4( 13569) 

•X0(650) 

•YQI650) 

*201650) 


C 

NE1»NE2+1 

NVSH=NE1 

NE4=NE3+7 

NE6»NE3+3 

OTH=PI/WNVC**5 

C* 0 ON WING LOOP 

IC=0 

DO 350 KP*i*NJS 
DO 340 J»l*NJC 
PUV»0* _ „ 

’ pvv=6*' “ 

TUV=0* 

TVV*0. 

ICsIC+1 
XP»XO(IO 
EVP=yQ( lO/HWS 


00042130 

00042140 

00042150 

00042160 

00042170 

00042180 

00042190 

00042200 

00042210 

00042220 

00042230 

00042240 

00042250 

00042260 

10042270 

00062280 

00042290 

00042300 

00042310 

00042320 

00042330 

00042340 

00042350 

00042360 

00042370 

00042380 

00042390 

00042400 

00042410 

00042420 

00042430 

00042440 

00042450 

00042460 

00042470 

00042480 

00042490 

00042500 

00042510 

00042520 

00042530 

00042540 

00042550 



C I LOOP 

AO DO 330 I=2»NVC 
STHJsSINl ACTII > ) 

IR=4*I-7 

IFdDF.EO.O) IR*IR+1200 
C ETAV LOOP 

XV3=XLT(1)+XTLT(1)*CFJ( n 
XV2=XLV{ 1 )+XTlVU)*CFJ( I ) 
XVT=XLV(NVSH)4-XTLV(NVSH)*CFJ( I » 
JJ4> 310 KVj tjfOEl 
IF{<V*NE*1) GO TO 102 
TL=2./DL0 

TPT= ( XVT-XV3 ) *TL/HWS 
GO TO 104 

102 IF(XV.NE*(NE3+4> ) GO TO 106 
TL=2,/DLI 

104 DL4*2**TL/BETA 
X2=TL/HWS 
DTX=X2»DTH 
TDV=HWS/Tl 
106 KT=KV 
IPASSal 

ro EVY=EVttCV) 

110 IF(KV*NE.NEU GO TO 120 
TPI»TPT 

tpo*-tpt 

TL»2./DL0 

DL4»2.»TL/BETA 

X2=TL/HWS 

DTX=X2*DTH 

T0Y*HWS/TL 

XC*X2*«XP-XVT) 

GO To 190 

120 IF(KV,GT*NE5) GO TO 130 

IF(KV.LE.NE3> GO TO 140 

IF(KV.GE*NE4) GO TO 140 

130 XBl=lXBnR)+XB(IR+4n/2*0 
XB2*(XB( IR+1)+X6< IR+5))/2.0 
YBl*tYBC IR)+Y6{ IR+4) )/2.0 
Y82=(YB( IR+U+YB( IR+5) J/2.0 
TP0=(XB1-XB2»/(YB1-YB2) 

EVY=( YBl+YB2)/2.0/HWS 
XC=X2*(XP-(XBl+XB2)/2.0» 


00042560 

00042570 

00042560 

00042590 

00042600 

00042610 

00042620 

00042630 

00042640 

00042650 

00042660 

00042670 

00042680 

00042690 

00042700 

00042710 

00042720 

00042730 

00042740 

00042750 

00042760 

00042770 

00042780 

00042790 

00042800 

00042810 

00042820 

00042830 

00042840 

00042850 

00042860 

00042870 

00042880 

00042890 

00042900 

00042910 

00042920 

00042930 

00042940 

00042950 

00042960 

10042970 

00042980 





TPI=TPO 

rR«IR4-l 

IF(KV.EQ#NE6J IR=IR+597 
IF{KV.EQ.(NE3+6H IR*IR+597 
GO TO 190 

140 IF(KV.NE*1) GO TO 150 
TPI*TPT 
TPO=*TPT 

XC=4,*X2*(XP-XV2 » 

GO TO 190 

150 IF(KV-NE4} 180»160tl70 
160 XV1*XLT(KV)+XTLT<KV)#CFJ(I > 

170 kT»KT+1 

180 XV2=XLV(KV)+XTLV(KV)*CFJ( n 
XV3=XLTt KT )+XTLT(KT)*CFJU ) 
TPr=(XV2-XV3)/T0T 
TP0=tXVl-XV2)/T0r 
IF(KV.E0.NE2> GO TO 182 
IF(ET(KT).LT.O.O> TPI=TPO 
182 XC=X2*(XP-XV2 > 

190 YC*Tl*(£VP-EVY> 

EVI»0* 

EV0=0* 

IF(ABS(YC/2*UGT.XLWV GO TO 290 
IF(KV.EQ.l) YC=4,*YC 
YCP=YC+1* 

YCM=YC~1* 

XTO*XC-TPO 

XTI*XC+TPI 

SQO«SQRT < XTO**2+YCM**2 ) 
SQI=S0RT<XTI**2+YC P*»2) 

SOC*SORT ( XC*»2+YC*»2 ) 
C1»TPI*»2+1, 

C4«C1 

C2*XC-YC*TPI ■ ■ 

IF(C2*#2/C1*LE.1*E-10) GO TO 230 
C3»YC+XC*TPI 

EVl*nC3+Cl)/SQl-C3/SQ 

230 C1*TP0**2+1. 

C2sXC-YC*TP0 

IF(C2**2/C1*LE*1*E-'10> GO TO 250 
C3*YC+XC*TP0 

240 EV0=MC3-C1)/S00-C3/SQC)/C2 


00042990 

00043000 

00043010 

00043020 

00043030 

00043040 

00043050 

00043060 

00043070 

00043080 

00043090 

00043100 

00043110 

00043120 

00043130 

00043140 

00043150 

00043160 

00043170 

00043180 

00043190 

00043200 

00043210 

00043220 

00043230 

00043240 

00043250 

00043260 

00043270 

>0043280 

00043290 

00043300 

00043310 

00043320 

00043330 

00043340 

00043350 

00043360 

00043370 

00043380 

00043390 

00043400 

00043610 



250 IF{KV,EQ.1> GO TO 290 

IFfSQC.GT.l.E-lOJ GO TO 25A 
STS=0#0 
GO TO 256 
254 STS=1*/SQC 
256 EUI=l./SOI-STS 
EUO*l*/SQO-STS 
AYC»ABS(YC/X2) 

SLOPE=( TSl (KV»r )+TSI (KV*I-1 ) ) /2*0 

DEFL’tT2nKV»I) + TZI(KV.I-l) )/2*0 

ST*SL0PE»STHJ*DTX 

SP*DEFL/STHJ*DTX*2*0 

TVI=ST*EVI 

TV0=ST*EV0 

KX*KV*IPASS 

260 IF(KV.NE*NE1> GO TO 280 
IF(KX.NE.NEU go to 270 
262 PUV«PUV«SP»{EUI*TPI-Evn/C4 
PVV=PVV-SP»(EVI*TP1+EUI )/C4 
EUI»ST*EUI 

TUV=TUV-(EUI*TPI-TVI>/C4 
TVV = TVV~{TVI*TPI+EUn/C4 
GO TO 305 

270 PUV»PUV+SP*(EUO*TPO-EVO)/C1 
PVV=PVV+SP* ( EVO*TPO+EUO ) /Cl 
EUO=ST*EUO 

TUVaTUV+(EUO*TPO-TVO) /Cl 
TVV=TVV+( TVO*TPO+EUO) /Cl 
60 TO 310 

280 PUV=PUV+SP*i <EUO*TPO-EVO)/C1-IEUI»TPI-EV1 )/C4) 
PVV=PVV+SP*I (EVO*TPO+EUO)/Cl-(EVl*TPI+EUr )/C4) 
EUI=ST*EUI 
EU0*ST»EU0 

TUV=TUV+(EUO»TPO-TVO)/Cl-(EUI-i»TPI-TVI )/C4 
TW=TVV+< TVO*TPO+EU6) /Cl~( TVI*TPI+EU! ) /C4 
290 IF( IPASS.EQ.O) GO TO 308 
IFUDB*NE*0) GO TO 305 
IF{KV.EO#NE2J GO TO 310 
305 IPASS^O 
EVYs-EVY 
TPX=-TPI 
TPI=-TPO 
TPO=TPX 


00043420 

00043430 

00043440 

00043450 

00043A60 

00043470 

00043480 

00043490 

00043500 

00043510 

00043620 

00043530 

00043540 

00043550 

00043560 

00043570 

00043580 

>0043590 

00043600 

00043610 

00043620 

00043630 

00043640 

00043650 

00043660 

00043670 

00043680 

00043690 

00043700 

00043710 

00043720 

00043730 

00043740 

00043750 

00043760 

00043770 

00043780 

00043790 

00043800 

00043810 

00043820 

00043830 

00043840 



ro 

LO 


GO TO 190 00043850 

308 XV1=XV3 00043860 

310 CONTINUE 00043870 

330 continue 00043880 

UVP(KPtJ)*PUV/Pl4/BETA+UVP(KP*J) 00043890 

VVP<KP»J)=PVV/PI4+VVP(KP*J1 )0043900 

UV(KP»J)=TUV/PI4/BETA+UV(KP*J) 00043910 

340 VV(KP»J)*TVV/PI4+VV(KP*J) 00043920 

350 continue 00043930 

RETURN 00043940 

end 00043950 

4 DECK AQXVP 00043960 

subroutine AQXVPINQ* I TYP) 00043970 

C 00043980 

C* CALC MATRIX-A » Q ON COMPONENTS AND VORTICES ON PYLON 00043990 

C 00044000 

COMMON/DAT/ DA (5000) 00044010 

C 00044020 

EQUIVALENCE ( 0A« 2500) *PHT ) » (DA ( 2507 ) *PNVC) * < DA ( 3383 ) »XLP ) 00044030 

1*IOA(2501)»POX) »(DA(2502).P0Y) » ( DA ( 2503 ) »POZ ) * ( DA ( 2492 ) *PDA ) 00044040 

C 00044050 

COMMON/CRG/ PI ♦PI4»RC*BETA *SlNOP*COSOP .00044060 

COMMON/CFG/ IDG(13)*NKP 00044070 

COMMON/CPP/ HPS»NVSH*NVT*DL*NEVP»2C0NtYC0N*NVC»NVS*NJC»NUP 00044080 

C 00044090 

LARGE " ' DM1 (75130) ' 00044100 

1 ♦EV<22> *XLV(22) *XTlV(22) *WP£(39) 00044110 

2 *XD(60) *YD(60) *2D(6U) 00044120 

3 ♦Xfl(400) *78(400) »Z8(400) 00044130 

4 .CFK20) *CFJ(20) *STH(20) •ACT(20) 00044140 

5 _»ET(22) »XlT(22) *XTlT(22) *C(20*Z0) 00044150 

6 ' »0M2(3190) fTSilZltiZO) *TZI(21*20) *CEL(3700) ' 00044160 

7 *XQ(650) »YQ(650) »ZQ(650) 00044170 

8 *AX(250) *AY(250) »AZ(250) *AZU(250) 00044180 

9 - ,SEU(30) "*SEV(30) »SEW(30) 00044190 

C 00044200 

C _ 00044210 

C* ■ ' " INltTAL AND'C^AlC MAfR'rx ‘ 00044220 

PYB=POY*BETA 00044230 

PZB=POZ*BETA 00044240 

IMAGE* I 00044250 

IF(POY.EQ«0.0»AnD.PDA.EQ.0.0) ImAGE=0 00044260 

XLP2«4**XLP*XLP 00044270 



DL4=^*./0L/BETA 

T0Y=DL<»HPS/2* 

sc=tdy 

NE1«NEVP 
NE2=NVSH-1 
INDT=OA( 3000) 

IF( indt.ne.o J NE1=NVSH 
DTH=PI/PNVC 
OTX=DTH/SC 
00 300 IQ=1*NQ 

CHORD WISE LOOP 

TVT=0,0 

TWT=0.0 

TUV=0. 

YOS=YQ( IQ) 

SOSiSINDP 

IPASS-1 

X0( IQ)=XQ( IQ)~P0X 
YQT=YQS-PYb 
2QT-ZQ( 1Q)~PZB 
20 YQnQ)*YOT»SDS+ZOT*COSDP 
Z0( IQ)=ZQT*SOS-YQT*COSDP 
CALL AOXVPR UQ* IPASS*SOS) 
TVV»0. 

TWV»0* 

IFtlpASS.EO.O) GO TO 30 
IF) ITYP*EQ,19) GO TO 251 
30 IR*1 

DO 250 I=1.NVC 
DO AO IW*1*NVS 
SEU( rw)*o*o 
SEV( IW)*0*0 
AO sEwnw)=o*o 

SPANWISE LOOP 
XV3=XLT(l)+XTLT)l)*CFni) 
XV2=XLV< 1 J+XTlV) 1)*CFI ( I ) 
XVT=XLV(NVSH)+XTLV)NVSH)*CFI ( I ) 
TPT=)XVT-XV3)/TDY 
DO 200 IE=1*NE1 
ZVWa(2Q{ IQ)-ZCON)/SC 
IF) INOT*EO.O*0) GO TO A8 
EVI=0* 

EVO*0. 


000AA?80 

000AA290 

O0OAA300 

000AA310 

000AA320 

OOOAA330 

0004A3AO 

000AA350 

OOOAA360 

OOOAA370 

000AA380 

0O0A439O 

OOOAAaOO 

OOOAA410 

OOOAA420 

000AA430 

000AA4A0 

000AA45O 

000AA460 

OOOAA470 

00044480 

00044490 

00044300 

00044510 

00044520 

000A4530 

00044540 

00044550 

00044560 

00044570 

00044580 

00044590 

>0044600 

00044610 

00044620 

00044630 

00044640 

00044650 

00044660 

00044670 

00044680 

00044690 

00044700 



IF(IE*NE*NEU GO TO 42 

TPl»TPT 

tpo=~tpt 

YV=HPS 

XVW=CXQ{ IO)“XVT)/SC 
GO TO 60 

42 IF{ lE.LE.NEVP) GO TO 48 

TPO=(X8< IRI-X8( IR+ll ) /(YB( IR)-Y8( lR+1 ) ) 
44 TPI=TPO 

YV=.5»( YB< IR»+YB( IR+1 \ ) 

XVW=1XQ( IQ)-(XB( IR)+X8( IR+I ) )/2->/SC 
ZVW»12Q( I0»-(Z8UR J+ZBl IR+1 ) ) /2. 1 /SC 
IR=IR+1 

IFt IE.EQ.NE2) IR=IR+1 
60 TO 60 

48 YV=HPS*EV( lEl 

IFIIE.NE.U GO TO 50 

TPI*TPT 

TPO*TPT 

XVW=4**IX0( 10)-XV2)/SC 

ZVW=4.*ZVW 

60 TO 60 

50 xv2=xLV( ie)+xtlv(IE)*cfi ( n 
XV3*XLT< IE»+XTLT( IEI^CFK 1 1 
XVW=(XQ{ IO)~XV2)/SC 
TPI*(XV2-XV3) /TOY 
TPO=(XVl-XV2)/TDY 
IF( IE*EQ.NE2) go to 60 
IFtET( IE j«LT,0*0) TPI=TPO 
60 IF( ITYP.EQ*24» ZVW=2* 

YVW-( YO( IQ)-YV)/SC 
TI2«TPI+*2+l* 

T02=TP0»*2+1* 

XTI=XVW+TPI 
XTO=XVW-TPO 
IF(IE«EQ#1) YVW»4.»YVW 
YCP=YVW+i* __ 

YP2sYCP**2 

YCM*YVW-1. 

YM2aYCM*»2 
70 ZV2=ZVW*»2 

IF( (YVW**2+ZV2) .6T.XLP2) GO TO 190 
XZ2*XVW»*2+ZV2 


00044710 

00044720 

00044730 

00044740 

00044750 

00044760 

00044770 

00044780 

00044790 

00044800 

00044810 

00044820 

00044830 

00044840 

00044850 

00044860 

00044870 

00044880 

00044890 

00044990 

>0044910 

00044920 

00044930 

00044940 

00044950 

00044960 

00044970 

00044960 

00044990 

00045000 

00045010 

00045020 

00045030 

00045040 

00045050 

00045060 

00045070 

00045080 

00045090 

00045100 

00045110 

00045120 

00045130 



ZL4=ZVW#DL4 

SOO=SQRT(XTO**2-*-YM2+ZV2 ) 
SQI=SQRT(XTI**2+YP2+ZV2 ) 

SQR=SQRT I XZ2+YVW**2 ) 

XYTI=XVW-YVW*TPI 
XYTO=XVW-YVW»TPO 
Rl2»(XTI/SQI+l*)/( YP2+ZV2) 
R22*XYTI»*2+ZV2*TI2 
R32»XYT0<H»2+ZV2#T02 
R42*lXT0/S00>l*)/( YM2+ZV2) 

EX=OiO 

EY=R12-R42 

EZ*YCM*R42-YCP*RX2 

IF{R22/TI2*LE.1#E-X0> 60 TO 80 

YXTI»YVW+XVW*TPI 

EX=( ( YXTI+TI2I/SQI-YXTI/S0R)/R22 

EY=EY-EX*TPI 

EVI»EX^fXYTI 

EZ=EZ-EVI 

80 IF(R32/T02,LE*1*E-10) GO TO 90 
YXTO»YVW+XVW*TPO 

EXX=( YXTO/SOR+( T02-YXT0)/6Q0) /R32 

EX*EX+EXX 

EY=EY-EXX»TPO 

EVO*-EXX*XYTO 

EZ=EZ+EVO 

90 IF( INDT.EQ.0> GO TO 98 
IF( lE.EQ.X) GO TO 98 
STS»X#/SQR 
eUI*X*/SOI-STS 
EUOaX«/SQO-STS 
EWI=0« 

IF<R22/TI2*LE.X#E-X0> GO To 92 
PII=SQRTai2) 

EWI*< YXTI/SQR-( YXTI+Tl2)/Son*2VW*PII/R22 
92 EWO=0* 

IF(R32/T02*LE*X*E-X0) 60 TO 94 
P0I*S0RT( T02) 

EWO»< YXT0/SQR-(YXT0-T02 J/5Q0)*ZVW*P0I/R32 
94 ST=TSI UE» n*STH( n*DTX 
IF( IEoNE*NEX> GO TO 96 
IFt IPASS*EQ.0*0) GO TO 97 
96 C4=ST/TI2 


00045X40 

00045X50 

00045160 

00045170 

00045180 

000^5190 

00045200 

00045210 

}0045220 

00045230 

00045240 

00045250 

00045260 

00045270 

00045280 

00045290 

00045300 

00045310 

00045320 

00045330 

00045340 

00045350 

00045360 

00045370 

00045380 

00045390 

00045400 

000454X0 

00045420 

0Q045430 

00045440 

00045450 

00045460 

00045470 

00045480 

00045490 

00045500 

000455X0 

00045520 

00045530 

00045540 

000^5550 

00045560 



TUV=TUV-(EUI*TPI-EVI )*CA 
TVV = TVV~(EVI*TPI+Eyn*C4 
TWV=TWV-EWI*PII*C4 
IF( lE.EQ.NEl) GO TO 19U 

97 Cl=i>T/T02 

TUV = TUV+(EL)0*TP0**EV0)*C1 

TVV=TVV+(EVO*rPO+EUOJ*CI 

TWV=TWV+EW0*P0I*C1 

IF( IE.EQ*NE1) GO TO 200 

98 IF( lE.GT.NEVP) GO TO 190 

IFnTYP.NE.24) GO TO 100 

IF( IPASS.EQ.I) GO TO 190 

100 EX=EX*ZL4 
EY=EY»ZL4 ' 

EZ»EZ*DL4 

SEUl lEl=EX+bEJ( IE) 

SEVnE)=EY+SEV< IE) 

SEW( IEI=Ei+SEW( IE) 

190 XV1*XV3 

200 "continue 

SEU( 1)=4.*SEU( 1) 

SEVI l)=4.*SEVa) 
SEWU)*4.»SEW(1) 

my=o 

DO 210 IU=»1*NUP 
DO 210 IW=1*NVS 
MY»MY+1 

AX(MY)sAXtMY)+SEU( IW)»C( I.IU) 
SEVT=SEV< IW)*S0S-SEW( Iw)»C05DP 
IFl IPASS.EQ.O) SEVT*-SEVT 

ay(my)=ay(my)-»-sevt »cn.iu)_ 

SEWT=SEV( IW)#COSDP+SEWt IW)*SDS 
210 AZ1MY)»AZ<MY)+SEWT ♦CU.IU) 

250 CONTINUE ; _ 

IF( IPASS«EQ.0 ) 00 TO 252 

251 IPASS*0 

IF( IMAGe^EQ.Or GO' TO' 252 

TVT»TVV*SDS-TWV*COSDP 

TWT=TVV*COSDP+TWV*SDS 

YQT=~YQS”PY8 

GO TO 20 


00045570 

00045580 

00045590 

00045600 

00045610 

00045620 

00045630 

00045640 

00045650 

00045660 

00045670 

00045660 

00045690 

00045700 

00045710 

00045720 

00045730 

00045740 

00045750 

00045760 

00045770 

00045780 

00045790 

00045800 

00045810 

00045820 

00045830 

00045640 

00045850 

00045860 

00045670 

00045880 

00045890 

00045900 

00045910 

J0045920 

00045930 

00045950 

00045960 

00045970 

00045980 

00045990 



ro 

-p" 

ro 


252 TUV=TUV/PI4/BETA 
TVY=TVV 

TVVT=TVY*SDS-TWV*COSDP 
IFt IMAGE.NE*Q) TVVT=-TVVT 
TW=( TVVT+TVT1/P14 
TWV= ( TVY»COi>DP+TWV*SOS+TWT ) /PI4 
C 

IF< ITYP«LT.19I go TO 264 
TVY=TVV 

tvv«tvy*sindp+twv*cosdp 

twv=-tvy*cosdp+twv*sindp 

DO 260 I»1.NKP 
AYT»AY( I ) 

AY( n*AYT*SINDP-»-AZ( 1»*C06DP 
260 Aid )*-AYT*C030P+A2{ n*6lNDP 
C 

264 IF( ITYP.NE.19! GO TO 280 

READ (9) (AZU< lOJ .IU®1*N*;P) 

DO 270 IU=1*NKP 
270 AZ( 1U)*AZU( IU)-A2( lU) 

280 WRITE (22) ( AXUU ) tAY ( lU) .A2 (lU ) » IU=1 *NKP ) ♦ TUV* T VV ♦ TWV 

C RESET Q coordinates 

XQ{ IQ)=XQ( IQ»+P0X 
YQ( IQ)=YQS 
ZQ( IQ)=ZQT+P2B 
300 CONTINUE 
C 

rewind 9 

WRITE (6*350) ITYP 

350 FORMAT (21H0 ** COMPLETED MATRIX* 14) 

RETURN 

END 

♦ DECK A(JXVPR 

subroutine AQXVPR ( IQ* IPASS*SDS) 

C 

C* CALC MATRIX-A *Q ON COMPONENTS AND VORTICES ON PYLON ROOT 

C 

COMMON/DAT/ DA(5000> 

C 

equivalence (DA(3383)*XLP) 

C 

COMMON/CRG/ RDG( 5) *COSDP 
COMMON/ CFG/ I DG ( 1 3 ) ♦ NKP 


00046000 

00046010 

00046020 

00046030 

00046040 

00046050 

00046060 

00046070 

00046060 

00046090 

00046100 

00046110 

00046120 

00046130 

00046140 

00046150 

00046160 

00046170 

000^6180 

00046190 

00046200 

00046210 

00046220 

)00A6230 

00046240 

00046250 

00046260 

00046270 

00046280 

00046290 

00046300 

00046310 

00046320 

00046330 

00046340 

00046350 

00046360 

00046370 

00046380 

00046390 

00046400 

00046410 

00046420 



fO 

uo 


C 

c* 


c 


COMMON/CPP/ HPi»»NVi>H*NV i » DL »NEVP » ^CON ♦ YCON ♦ NVC ♦NVi> t N JC »NUP 


large 

1 

2 

3 

4 

5 

6 

7 

8 


DMK75I30) 

»EV(22) »XlV( 22) »XTLV'i22J *ivPE(39) 

♦XD(6U) *Y0(6U) tZD(60) 

*XB(400) »YBUUU) »ZB(4UU) 

♦0M213526) »CiEC(21*lU) »OM3i840) »CEL(3700) 
»XQ(650) *YQ(650) »ZQ(650) 

♦AX(256j tAY(250) ♦AZ(250> ♦A(250> 

*0BX(6U0) *QBY(6uO) tQ6Z(60U) 

»QTX(60U) *QTY(6U0) ♦QTZ(600) 


CONTROL POINT INDEX 
NVCT*NVC+NVT-1 
lEUPASG.EQ.i) GO TO 10 

IE(A8S((YB<4>-YQ< IQ))/<YBJ1)-Y8(2)))*GT*XLP) GO TO 400 
GOTO 14 
lO DO 12 Isl.NKP 
AX(n = 0,0 
AY(I)=0*0 

12'aZ<H=0*0 ■ - ■ - • 


NVX and NVY LOOPS 

14 LI=1 
LF = 5 
JS=0 

D0...300 IX=ltNVCT 

k;=o 

IFUX.LE.NVO go TO 20 

jS»JS-4 

K»“l 

20 00 200 IS»1»4 
JS*JS+1 

30 TZl*ZB{LF»-28<Ln 
TZ2»ZB(LF)-ZO( IQ» 
TZ3eZB(Ln-2QUQ) 

50 TXl*XBaF)-XB<LI ) 
TX2«*X8(LF)-XQ( IQ) 

_ TX3»XB(Ln-XQ( IQ) 

TYl* VB(LF’T-YB( Ll ) 
TY2=YB(LF)“Y0( 10) 

TY3»YB(L1 )-YQ( IQ) 
HN=TX2*TX1+TY2*TY1+TZ2»TZ1 
HD=Tx1**2+TY1**2+TZ1*»2 
SQHD=SQRT(HO) 
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00046440 
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00046460 
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00046480 
00046490 
00046500 
00046510 
00046520 
000^6530 
>0046540 
00046550 
00046560 
00046570 
00046560 
00046590 
00046600 
00046610 
00046620 
00046630 
00046640 
00046650 
00046660 
00046670 
00046660 
00046690 
00046700 
00046710 
00046720 
00046730 
00046740 
00046750 
00046760 
■ 00046770 
00046760 
00046790 
000 460 00“ 
00046810 
00046620 
00046830 
00046840 
00046850 





1F(SQHO*GT,0,UUOU1) go To 52 
QSR=O.U 
GO TO 54 
52 HT=HN/HO 

HX*TX2-HT«TX1 

HY=TY2-HT*TY1 

HZ=TZ2~HT*T21 

SHP=SORT ( HX**2+HY**2+HZ*#2 ) 
SRF=HN/SORT ( TX2**2+TY2**2+TZ2**2 ) 
HI = TXi*TX3-^TYl*TY3+TZl»TZ3 
SRI=HI/SORT ( TX3**2+TY3**2+TZ3**2) 
0 T=(SRF-SRI j/sqho/shp 
TX«TY2*TZ1-TZ2*TY1 
TY=TZ2*TX1-TX2*TZ1 
TZ*TX2*TYI-TY2*TX1 
QSRsQT/SORT ( TX**2+T Y**2+TZ**2 ) 

54 IF(K> 150*140*70 
C* lateral V0RTICE5 

70 QBX( JS>=QSR*TX 
QBY( JS >*Q5R*TY 
08Z( JS)=Cli>R*TZ 
LI'LF 
LF=LI+4 
K«0 

GO To 30 

c* longitudinal vortices 

140 QTXI JS)*QSR*TX 
OTY{ JS)*QSR#TY 
QTZ( JS)*QSR*TZ 
LF=LI+1 
K*1 

GO TO 200 

150 QTX(JSJ*QSR*TX+QTX( JSJ 
QTYt JS)=QSR»TY+QTYt JS) 
QTZ<JS)*QSR*TZ+QTZ< JS) 

LI=LI+1 
LF»LI+4 
200 CONTINUE 

1F( IX*GT*NVC) go to 30u 
LI=LI+1 
LF»LI+4 
300 continue 
C 


00046860 

00046870 

00046880 

00046890 

00046900 

00046910 

00046920 

00046930 

00046940 

00046950 

00046960 

00046970 

00046960 

00046990 

00047000 

00047010 

00047020 

00047030 

00047040 

00047050 

00047060 

00047070 

00047080 

00047090 

00047100 

00047110 

00047120 

00047130 

00047140 

00047150 

00047160 

00047170 

00047180 

00047190 

00047200 

00047210 

00047220 

00047230 

10047240 

00047250 

00047260 

00047270 

00047280 



n n 


Q* 


JS=JS-“4 


CALC contribution FROM TRAIL VORTICES 


DO 320 15=X#4 
JS=JS+1 

HXaXB(L I )-XQ( IQ) 

H2s2B(Ln-2Q( IQ) 

D01*Hy*HY+HZ*H2 
IF TD01«LT#0*00 oQ1 ) GO TO 320 
0D2=SQRT(HX*HX+D01 ) 
IFIDD2.LT.0, 00001) GO JO 320 
QTY ( JS ) =QTY I JS)+QSR#HZ * 

QTZ( JS)=QTZ( JS)-QSR*HY 
320 LI=LI+i 


HX/ooO/®T>1 


SUM FOR AXtAY AND AZ 

N=4»NVC+1 
DO 340 I=l»3 
N=N + 1 

OBX{N)=0.0' ■ ■ 

OBY(N)*0*0 
340 Q82(N)=0*0 
N=0 

DO 360 J»1»NVC 
N»N+1 

DO 360 1*1*3 
N*N+1 

EX *QTX ( N- 1 ) -Q TX ( N ) +QBX ( N44 ) -Q8X { N » 

EY*QTY (N-1 ) -QTY ( N) +QBY ( N+4) -QBY (N ) 

EZ=QTZ<N-1 )-QTZ lN)+0BZ(N+4)-Q8Z{N) 

EYT*EY 

EY*EYT 4S0S-EZ4C0SDP 
IF( IPASS*EQ*0) EY*-EY 
EZ=EYT*COSDP+EZ#SDS 
IE»NEVP-fI “ 

K*IE 

. . Dp .342 IU=1 *NUP 

AXIK)=EX*CSEC( J.IU)+AX(K) 
AY<K>*EY4CSEC( J*IU)+AY(K) 

_ AZ IK)=EZ*CSEC( J*IU)+AZ<K) 

342 K*K+NVS 
360 CONTINUE 
400 return 
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00047300 

00047310 

00047320 

00047330 

00047340 

00047350 

00047360 

00047370 

00047380 


0004739Q 

00047400 

00047410 

00047420 


“ S’ 


00047430 

00047440 

00047450 

00047460 

00047470 

00047480 

00047490 

00047500 

00047510 

00047520 

00047530 

00047540 

10047550 

00047560 

00047570 

00047580 

00047590 

00047600 

00047610 

00047620 

00047630 

00047640 

00047650 

00047660 

00047670 

00047680 

00047690 

00047700 

00047710 



ro 

■p- 

CT\ 


END 00047720 

*DECK AQPVP 00047730 

subroutine AQPVP 00047740 

C 00047750 

C* CALC MATkIX-A Q ON PYLON AND VERTICES ON PYLON 00047760 

C 00047770 

COMMON/OAT/ DAI 5000) 00047780 

C 00047790 

DIMENSION PJC120) 00047800 


C 

C 


C 


C 

c 


c* 


equivalence 


(DA<2507) ♦PNVC) »tDA<3383) tXLP) 


COMMON/CKG/ P I ,P 14 ,KC»BETA 
COMMON/ CFG/ I0G(13).NKP 

COMMON/CPP/ HPS»NVSH*NVT »DL «NEVP «^CON *YCON*NVC *NVS »NJC *NUP 


LARGE 


1 

2 

3 

4 

5 

6 
7 

a 


DMK 75130) 
*EV 122) 
*XD(60) 
*XB(4U0 1 
»CFt<20) 
*EU22) 
»CSJ<20*20) 
»UVP { 20*20) 
♦DM2 (790) 
•XQ(650) 


♦XLV(22) 

♦YD(60) 

»Y8(400) 

»CFJ( 20) 

♦XLT(22) 

•lSJ(2u*20) 

♦VV(20»20) 

*TSI( 21*20) 

♦YQ(650) 


♦XTLV(22) »WPE(39) 

»Z0(60) 

*ZB(4v>0) 

♦STH(20) *ACT(20) 

*XTLT(22) *C(2U*20) 

»UV( 20*20) 

*VVP(20*20) 
*TZH21*20) *CEL( 3700) 
♦ZQ(650) *AZ(250) 


REWIND 9 
NE1=N£VP 
N£2=NVSH~1 
IN0T*0A( 3000) 

IFUNDT.NE.O) N£1 = NVSH 
10 DL4=4*/UL/B£TA 
TL»2./DL 
X2*TL/HPS 
0TH=PI/PNVC«*5 
0TX=X2*DTH 
TDYcHPS/TL 

Q ON PYLON LOOP 

IpaO 

IC=0 

00 350 XP=1*NE2 


00047810 

♦<DA(2512) *PJC) 00047820 

00047830 
00047840 
00047850 
J0047860 
00047870 
00047880 
00047890 
00047900 
00047910 
00047920 
00047930 
00047940 
00047950 
00047960 
*SUMES(30> 00047970 
00047980 
00047990 
00048000 
00048010 
00048020 
00048030 
00048040 
00048050 
00048060 
00048070 
00048080 
00048090 
00048100 
00048U0 
00048120 
00048130 
00048140 





00 340 J=l»NJC 

00048150 



JX=PJC(J) 

00048160 



PUV»0« 

)0048l7o 



PVV=0* 

00048180 



TUV-0. 

00048190 



TVV»0* 

00048200 



IC=IC+1 

00048210 



if<kp«le.nevp) Go to 20 

00048220 



IP=IP+1 

00048230 



XP*XD( IP) 

00048240 



EvP»yO( IP )/HPS 

00048250 



GO TO 30 

00048260 


2U 

XP*XL V ( KP ) +XTLV < KP ) *CF J ( JX-*- 1 ) 

00048270 



EVP=eV(KP) 

00048280 


30 

DO 32 I«1*NKP 

00048290 


32 

Azm»o.o 

00048300 

c 


I LOOP 

00048310 


40 

IR»1 

00048320 



DO 330 I=1*NVC 

00048330 



DO 100 NS=1*NVS 

00048340 


100 

-SUMEStNSVaO.O 

00048350 

c 


ETAV LOOP 

00048360 



XV3=XLT m+XTLT C 1 )*CF I < n 

00048370 



XV2=XLV{l)+XTLV(l)*CFIt I) 

00048380 



XVT=XLV(NVSH>+XTlV(NVSH)*CFIU ) 

00048390 



TPT=(XVT-XV3)/tDY - - . ^ 

00048400 



DO 310 KV»1»NE1 

00048410 



EVI=0. 

00048420 



EV0»0# 

00046430 



EVY=EV(KV) 

00048440 



IFIINDT.EQ.O ) GO TO 140 

00048450 



IF(XV.NE.NEI) go to 120 

00048460 



TPI=TPT 

00048470 



TPO=-TPT 

00048460 



XC=X2*(XP“XVT) 

00048490 



GO TO 190 

00048500 


120. 

IF(KV.LE.NEVP) GO TO 140 

00048510 



tPO=(XB< IR)-XB( iR+i n/(YB< iR)-YB( lR+1 f) ■ " ' ™ - 

000485'20' 


130 

EVY=(YB( IR)+YB( IR+1) I/2./HPS 

00048530 



XC = X2<MXP-l X8UR)+X8( IR+1) )/2* ) 

00048540 



TPI=TPO 

00048550 



IR»IR+1 

>0046560 



IF<XV*EQ»NE2) ir=ir+i 

00048570 



GO TO 190 

140 IFlKV.NE.l) GO TO 180 
TPl=TPT 
TP0=TPT 

XC=4**X2*(XP-XV2 > 

GO TO 190 

180 xv2=xlv<kv)+xtlv(kv>*cfh n 
XV3=XLT(KV>+XTLT<KV)*CFn I » 

TPI=( XV2-XV3) /TOY 
TPO=( XV1-XV2) / JOY 
IF(KV.E0.NE2) GO TO 182 
IF(ET(KVl*LT.U.O) TPI=TPO 
182 XC=X2*<Xp-XV2) 

190 yc=tl*<evp-evy> 

IFUBS(YC/2,)*GT,XLP> GO TO 300 
IF(KV*EQ.l) YC=4.*YC 
YCP*YC+1* 

YCM=YC-1. 

XTO»XC“TPO 
XT I=XC+TPl 

SOO=SQRT ( X TO**2+YCM#*2 ) 

S0I = SQRT^XTr^H^2+YCP^^*2) 

EC=(XT I/SQl+l.)/YCP-lXTO/SOO+l.)/YCM 
% SQC=SQRHXC**2+YC**2) 

C1=TPI**2+1* 

C4 = C1 

C2=XC-YC*TPI 

IF(C2**2/C1.lE*1*E*'10) GO TO 230 
C3=YC+XC»TPI 

EVI=( (C3+C1)/SQI-C3/50C)/C2 
230 Cl»TPO**2+l. 

C2“XC-YC#TPO 

IF(C2**2/C1.LE.1.E-10) GO TO 250 
C3 = YC-»-XC*TPO 

240 EV0=UC3-C1 )/SQO-C3/SQC)/C2 
250 IF( INOT.EQ.O) GO TO 290 
IF(KV*EQ.l) GO TO 290 
STS=1,/S0C 
EUI=l#/SQI-STS 
EUO=l*/SOO-‘STS 
AYC»ABG( YC/X2) 

ST = Ti>nKV»n*STH( I )#DTX 
SP = T2I (KV»n/GTH( I)#DrX#2*0 


00048580 

00048590 

00048600 

00048610 

00048620 

00048630 

00048640 

00048650 

00048660 

00048670 

00048680 

00048690 

00048700 

00048710 

00048720 

00048730 

00048740 

00040750 

00048760 

00048770 

00048780 

00048790 

00048800 

00048810 

00048820 

00048830 

00048840 

00048850 

0004 

)0048860 

00048870 

00048680 

00048890 

00048900 

00048910 

00048920 

00048930 

00048940 

00048950 

00048960 

00048970 

00040980 

00048990 



n n n r. 


TVI=i>T*EVl 

TVO*ST*EVO 

■>60 IF(KV.NE.NEI) go to 20U 

PUV=:PUV-SP*(EUI*TPI-EVI )/C<> 
pVV=PVV-SP-iMEVI*TPl-fEUl J/C4 
EUI=ST*EUI 

TUV=TUV-(EUI*TP I“TV I ) /C4 
TVV*TVV-t TVI*TPI+E0n /C4 
GO TO 300 

280 PUV=PUV+SP* ( ( EUO*TPO-EVO ) /Cl-( EUl*TPI-EVI ) /C4 ) 
PVV»PVV+SP*l (EVO*TPO+EUO)/Cl~lEVl*TPI+EUl )/C4) 
eui*sT*Eui 
EUO=ST»EUO 

TUV*TU\/+( EUO*TPO-TVO) / Cl- ( EU I *TP I -TV I) /C4 
TVV=TVV-M TV0*TP0+EU0) /Cl-( TV I *TPl •♦■EU I ) /C4 
290 IF(KV.GT*NEVP) 60 TO 3U0 
EC®(EC+EvI-EV 0)*0L4 
SUMES I KV ) =SUMES ( KV ) +EC 
30U XVl*XV3 
310 CONTINUE 

SUMES( 1)*4,*SUMES( 1) 

MY*0 

312 00 314 NC*1*NUP 
DO 314 NS=1*NVS 
MY»MY+1 

314 AilMY )»Ai(MY)4-SUMEPmi>)*CU tNCI 
330 CONTINUE 

WRITE (9) (AZ<MY) *MY=1.NKP» 

UVP( KP*J)=PUV/PI4/BETA 
VVP( KPt J)=PVV/PI4 
UV(KP» JI*TUV/PI4/BETA 
340 VV<KP*J)=TVV/PI4 
350 CONTINUE 
rewind 9 

IFUNDT.NE*0J CALL ACiPVPT 
RETURN 

END . » . 

*DECK AQPVPT 

SUBROUTINE AQPVPT 

CALC additional INFLUENCE OF PYLON THICKNESS 
DUE TO BREAKS ETC. 


00049000 

00049010 

00049020 

00049030 

00049040 

00049050 

00049060 

00049070 

00049080 

00049090 

00049100 

00049110 

00049120 

000A9130 

00049140 

00049150 

00049160 

)00A9l70 

000A9180 

OOOA9l9o 

00049200 

00049210 

OO0A9220 

OO0A9230 

00049240 

00049250 

00049260 

00049270 

00049280 

00049290 

00049300 

00049310 

00049320 

00049330 

00049340 

00049350 

00049360 

00049370 

00049380 

00049390 

00049400 

00049410 

00049420 



n n 


COMMON/DAT/ 0A<5000) 


DIMENSION PJC(20) 


equivalence 


IOA12507) ,PNVC> ♦ (DA i 3383) ♦ ALP ) » ( DA ( 2 5 1 2 > pPJC ) 


COMMON/CRG/ P I . P 14 » RC *b£T A 

COMMON/CPP/ HPS*NVSH*NVT»DL iNEVP*ZCON »YCON»NVC.NVS»N JC*NuP 


large 


DMl (75130) 

*EV(22) *XLV(22) 


»XTLV(22) 

»XD(60) *y0(60) »Z0(6U) 

*XB(400) (YB(AOO) >ZB(4uO) 

•CFI(20) *CFJ(20) *STH(20) ♦ACT(20) 

*ET(22) ♦XLltza) *XTLn22> ♦C(20*20) 

♦ CSJI2U i2U) .ISJ< 20»2U) *UVC2O,20) 

*UVP<2t)»2U) ♦VV(2U»20) *VVP(20»2U) 

♦DM2 (790) *TSI( 21*20) tTZI ( 21 »20 > ♦CEL ( 3700 ) 
♦XQ(650) *YQ(650) ♦ZQ(650) ♦AZ(250) 


♦WPE( 39) 


♦ACT(20) 

♦C(20*20) 


♦ SUMESOO) 


NE1»NVSH 

NE2*NVSH-1 

DL4=4./DL/BETA 

TL*2./DL 

X2=TL/HPS 

DTH=PI/PNVC**5 

DTXaX2*DTH 

toy=hps/tl 

Q ON pylon loop 

IP=0 

IC=0 

DO 350 KP»1*N£2 
00 340 J»l*NJC 
JX«PJC(J) 

PUV=0* 

PVV»0. 

TUV=0. 

TVV'O* 

IC=IC+1 

IF(KP.LE*NEVP) go to 20 

IP=IP+1 

XP=XD( IP) 


00049430 

000494A0 

000A9450 

00QA9460 

00049470 

>0049480 

00049490 

00049500 

00049510 

00049520 

00049530 

00049540 

00049550 

00049560 

00049570 

00049580 

00049590 

00049600 

00049610 

00049620 

00049630 

00049640 

00049650 

00049660 

00049670 

00049680 

00049690 

00049700 

00049710 

00049720 

00049730 

00049740 

00049750 

00049760 

00049770 

00049780 

00049790 

00049800 

00049810 

00049820 

00049830 

00049840 

00049850 



251 


EVP*YDt IP )/HPS 
GO TO 40 

20 XP=XLV (KP J+XTLV ( KP)*CFJ ( JX+1) 
EVP*EV(KP) 

C I LOOP 

40 IR*1 

00 330 I=*2»NVC 
C ETAV LOOP 

STHJsSIN(ACT( n ) 

XV3=XLT( 1)+XTlT( l)*CFJt I) 

XV2=XLVU )+XTlVU)*CFJ( n 

XVT=XLV(NVJ>H)+XTLV(NV3H)*CFJ( n 

TPT=(XVT“XV3)/TDY 

DO- 310 KV=1*NE1 

EVI=0* 

EVO=0# 

EVY=EV(KV) 

IFUV.NE.NEl) GO TO 120 
TPI^TPT 

TPO=-TPT ■ 

XC=X2»(XP-XVT) 

GO TO 190 

120 IF(XV.LE.NEVP) GO TO 14o 
X81=lXBt 1R)+XB< IR+4) )/2. 
X82=IX8< IR+l)+XBnR+5)l/2. 
Y6i=(y8( IR>+YB( IR+4) )/2, 
YB2=(Y8( lR+l)+Y8<lR+5) )/2. 
TPO=(XBX-XB2)/< YBI-YB2) 

EVY=( YBl+YB2)/2*/HPS 
XC=X2*(XP-(XB1+X62 )/2*) 

TPI=TPO 

IR=IR+1 

IF(KV*EQ*NE2) TR=TR+1 
GO TO 190 

140 IF(KV.NE.I) go TO 180 , 

TP1*TPT 

, TPO'TPT _ 

' XC=4**X2*(XP-XV2) “ ■ ~ 

GO TO 190 

100 XV2=XLV{KV)+XTLV(KV)*CFJ< I ) 

XV3 = XLT<KV)+XTlT(KV)#CFJI 1 > 
TPI»{XV2-XV3)/T0Y 
TP0=<XV1-XV2) /TOY 


00049860 

00049870 

00049880 

00049890 

00049900 

00049910 

00049920 

00049930 

00049940 

00049950 

00049960 

00049970 

00049980 

00049990 

00050000 

00050010 

00050020 

00050030 

00050040 

00050050 

00050060 

00050070 

00050080 

00050090 

00050100 

00050110 

00050120 

00050130 

00050140 

00050150 

00050160 

00050170 

10050180 

00050190 

00050200 

00050210 

00050220 

00050230 

00050240 

00050250 

00050260 

00050270 

00050280 



IFtKV*E0.NE2) 60 TO 182 
if(et(kv),lt,(J# 0) rpi = Tpo 
182 XC=X2*(XP-XV2 ) 

190 YC=TL*(EVP-EVY) 

IF(AB3lYC/2. ).GT*XLP) GO TO 300 
IFlKV.EO.l) YC=4.*YC 
YCP=YC+1. 

YCM»YC-l« 

XTO*XC-TPO 

XTI=XC+TPI 

SQO=SORT ( XTO**2+YCM*»2 ) 
SQI=S0RT(XTI»*2+YCP**2) 
SQC=SQRT(XC**2'*-YC**2» 
C1=TPI**2+1. 

C4»Cl 

C2*XC-YC*TPI 

IF(C2#»2/C1.LE.1*E-10» 60 TO 230 
C3»YC+XC*TPI 

EVI=( IC3+C1 )/SQl-C3/SQCJ/C2 
230 C1*TP0*»2+1* 

C2*XC^YC*TPO 

IF{C2**2/Cl.LEf I.E-IO) GO TO 250 
C3*YC-»-XC*TP0 

2A0 EVO=< (C3-C1 J/SQO-C3/SQCJ/C2 
250 IF(KV*EQ*I) 60 TO 300 

IF(SQC»GT.1*E-10) GO TO 254 
STS=0«0 
60 TO 256 
254 STS»1*/S0C 
256 EUI=1#/SQI-STS 
EU0*1*/S00-STS 
AYC=ABS(YC/X2) 

SL0PE®< TSUKVtl > + TSI(KV»I-l ))/2 

OEFL=tTZl(KV. I »+TZl(KVf I-l )j/2. 

ST=SLOPE»STHJ*DTX 

SP»DEFL/STHJ*0TX*2 *0 

TVI«ST#EVI 

TVO=ST*EVO 

260 IF(XV*NE*NE1» GO TO 280 

PUV«PUV“SP*(EUI*TPI-EVn/C4 

PVVcPVV-SP#(EVI#TPI+EUl)/C4 

EUI=ST*EUI 

TUV=TUV-(EUI*TPI~TVI)/C4 


• O 


00050290 

00050300 

00050310 

00050320 

00050330 

00050340 

00050350 

00050360 

00050370 

00050380 

00050390 

00050400 

00050410 

00050420 

00050430 

00050440 

00050450 

00050460 

00050470 

00050480 

10050490 

00050500 

000505X0 

00050520 

00050530 

00050540 

00050550 

00050560 

00050570 

00050580 

00050590 

00050600 

00050610 

00050620 

00050630 

00050640 

00050650 

00050660 

00050670 

00050680 

00050690 

00050700 

00050710 



. TVV=TVV-(TVi*TPI+EUn/c4 ,00050720 

GO TO 300 00050730 

280 PUV=PUV+SP*( (EU0*TP0-EV0»/C1-(EUI*TPI-EV1 )/t4) 0Q0507A0 

PVV=PVV+SP*C <EV0»TP0+EU0)/Cl-{EVI*TPI+Eun/C4) 00050750 

EUI=ST*EUr 00050760 

EUO*ST*EUO 00050770 

TUV=TUV+(EUO*TPO*TVO) /Cl-(EUI*TPI--Tyn/C4 Q0050780 

’ , TVV=TVV+(TV0*TP0<-EUG)/Cl-(tVl*TPl+EUlI/C4 00050790 

300 XVX*XV3 >0050800 

3 lO CONTINUE 000508l0 

‘330 CONTINUE 00050820 

UVPtKP* J)=PUV/PI4/BETA+UVPIKP»J) 00050830 

VVPIKP* J)=PVV/PI4+VVP(KP*JI 0005G8A0 

UV(KP»JI=TUV/PI4/0ETA+UV(XP;j) 00050850 

340 VV(KP.J)*TVV/PI4+VV(K.P»J) 00050860 

350 CONTINUE 00050870, 

RETURN ' 00050880 

END 00050890 

•deck NACELL 00050900 

SUBROUTINE NACELL 00050910 

C 00050920 

G* CONTROL routine TO CALC. INFLUENCE MATRICES OF NACELLE 00050930 

C ' ON OTHER COMPONENTS AND NACELLE ON NACELLE 00050940 

C 00050950 

COMMON/DAT/ DA«5000) -00050960 

C ' ' ' 00050970 

EQUIVALENCE ( DA t 2492 > *POA ) * < DA< 3391 ) »XNO ) » ( DA t 3392 ) * YNO ) 00050980 

1»IDA(3393J *^N0) 00050990 

C ” ■ : 00051000 

COMMON/CRG/ P I tP 14 * RC *BETA *SInDP*COSDP 00051010 

COMMON/GFG/ IDU 5) ♦NQ8»N0F»NQW»N0P»N0N 00051020 

C ^ . . . . 00051030 

LARGE DMH81191)»X0BM000) .»YOBdOOO) ♦Z0B<1000)- »DM2(700) 00051040 

. I *Y2(1000) .*S0T(1000j »CDT<1000) 00051050 

c -■ ■ ^ ^ 00051060 

C INITIAL 00051070 

. JPOAR»POA/RC „ - . _ 00051080 

NOT *NQB+NQF+NQ^^ ’ “ * ‘ ' ! “ ^ 00051090 

VNB»YN0»BETA. 00051100 

2NB=ZN0»BETA 00051110 

G INFLUENCE OF RIGHT SIDE NACEllE 00051120 

lT=NOT 00051130 

DO 10_I=1#L1 _ , 00051140 



r> n 


ro 

•p* 


X 2 ( n*XOB< I)“XNO 
TY-YOB( n-YNB 
TZ=ZOB(n-ZNB 
YNQ=-TY*SrNDP-TZ*COSOP 
ZNO=TY*COSOP-TZ*SlNDP 
Y2( n*SQRT( yNQ**2+ZNQ**2) 

THE=ATAN2(ZN0*YNQ) 

ANG=POAR“THE 
SDK n=SlN( ANG) 

10 CDK n*C 0 S( ANG) 

CALL AQXVN(1*L1> 

C TEST FOR IMAGE 

SYM=YN0+P0A 

IF(SYM.EO.O.O) GO TO 30 

c influence of left side nacelle 

li»not+non 

DO 20 I=1#L1 
X21 1)»X0B( I )-XNO 
TY»Y0B1 I)+YNB 
TZ»Z 0 B< n-ZNB 
YN0=TY«SIN0P“TZ*C0SDP 

znq*ty*cosdp+tz*sinop 

Y 2 ( I»»SQRT(YNQ**2+iNQ**2) 

THE=ATAN2(ZNQ*YNQ) 

ang=-pdar-the 

SOT( I )»SIN( ANG) 

20 COTt I)=C0S(ANG) 
call AOXVN (2*L1) 

C 

30 REWIND 9 

WRITE (6*50) 

50 FORMAT ( 44Ho ** COMPLETED INFLUENCE MATRICES OF NACELLE) 
C 

RETURN 

END 

*OECX AOXVN 

SUBROUTINE AOXVN t I PASS *L1 ) 

« CALCULATE INFLUENCE MATRICES OF NACELLE 


C 


COMMON/ OAT/ 0A(5000) 

(DA( 2492) »PDA) * (DA< 3392 ) » YNO) * t DA C 3385 ) »XLNR ) 


00051150 

00051160 

00051170 

00051180 

00051190 

00051200 

00051210 

00051220 

00051230 

00051240 

00051250 

0005 

00051260 

00051270 

00051280 

00051290 

OOO 5 I 3 OO 

00051310 

00051320 

00051330 

00051340 

00051350 

00051360 

00051370 

00051380 

00051390 

00051400 

00051410 

00051420 

00051430 

00051440 

00051450 

00051460 

00051470 

00051480 

10051490 

00051500 

00051510 

00051520 

00051530 

00051540 

00051550 

00051560 


equivalence 



l»lDAt3384) *XLNC) 


C 


C 


C 

C 


C 


C 

C 

C 


COMMON/CRG/ PI »PI4 »RC*8ETA •SiNDPfCOSDP 
COMMON/CFG/ ID1<5) *NQ8»NOF*NQW*NQP*NON 
COMMON/CPN/ NB»ND(3) ♦Nr»BON»YZERO»IAC*I *J»J1 


LARGE 

1 

2 

3 


DMK 81191 
•XI ( 140) 

*X2( 1000) 
♦A(140) 


) ♦XOB( 1000) 
*Yl ( 140) 
♦Y2( 1000) 
*B(140) 


♦ YOB < 1000) 
*SINA<140) 
•SOT ( 1000) 
♦C( lAO) 


♦zoenooo) 

•COSAl 140) 
• COTdOOO) 
♦AX( 140) 


* START 

IS»NQB+NQF+NOW 

IE=IS+N0P 

SYMaYNO-*-PDA 

B0N«1*0* 

YZER0»0*0 

XLNR2=2*0*XLNR 

XLNC2«2.0»XLNC 

* I MIDPOINT LOOP 

10 CONTINUE 

DO AOO I»l*Ll 

* J ELEMENT LOOP 

J1 Is THE COORDINATE COUNTER 
J Is THE element COUNTER 
ji'O ’ 


Nl=0 

DO 110 X^ltNB 
M1=N1+1 
N1»N1+N0(ia-1 
DO 100 J«M1^N1 
J1=J1+1 

C * COMPUTE X.Y*Z MATRICES 



IF(8ON*EQ.0.0) 

GO 

TO 

50 


X11»0*5<MX1I J1 

>+XK Jl + l ) ) 


Y11«0.5*IY1( J1 

)+Y] 

L ( J 1+1 ) ) 

40 

IF< Y11,EQ.O*0) 

GO 

JP 

45 


IF<ABS(Y2( n/Y 

11 

^ • 

Gf.XLNR2) W to 45 


IFIABSUXIl 

-X2< 

I ) ) 

/Yll ).LE*XLNC2) GO 

45 

AX(J)a0,0 





AY(J)»0.0 





GO TO 100 




50 

CALL XYZ 





00051570 
00051580 
00051590 
00051600 
00051610 
00051620 
00051630 
♦ DELS I 140) 00051640 
00051650 
♦AY(140) 00051660 

00051670 
00051680 
00051690 
00051700 
00051710 
00051720 
00051730 
00051740 
00051750 
00051760 
00051770 
00051 780 
00051790 
>0051800 
00051810 
00051820 
00051030 
00051840 
00051850 
00051860 
00051870 
00051880 
00051890 
00051900 
00051910 
00051920 
00051930 
00051940 
00051950 
00051960 
00051970 
00051980 
00051990 



lOO continue 

110 J1=J1+1 
NT«N1 

^ SAVE A*B*C MATRICES ONTAPE 

IF( IPASS*E0*2) GO TO lAO 
DO 130 IK=1*NT 
A( IKI=AX< U ) 

8< IK)=-AY( IK)*SDT( i ) 

130 C( IK)*-AY( IK)*C0T( I ) 

IF(SYM*E0*0,0> GO To 160 
write (m (AUK) *B( IK) ♦C(IK) »IK = 1»NT) 
GO To 400 
C 

140 READ (11) (A(IK)»BUK)*C(IK)»IK*1*NT) 
DO 150 IK=1,NT 
A(IK)=A( IK )+AX( IK) 

B( IK)=B( IK)-AY( lK)*SOT( 1 ) 

150 C( IK) = C( IK)-AY( lK)*CDT( I ) 

C 

160 IF(BON.EQ.O.O) GO TO ISO 
IF( I.LE«IS) go to 200 
IF( 1«GT*1E) go to 180 
DO 170 IK«1*NT 
YT«B( IK) 

B( IK)»YT»SIN0P+C( IK)#C0SDP 

170 C( IK) »-YT#COSDP+C( IK)*SINDP 
60 TO 200 
C 

180 DO 190 IK»1*NT 
VT«B(IK) 

B( IK)»-YT*SINDP-C( lK)*COSDP 
^ 190 C( IK) *YT#COSDP~C( IK)*SINDP 

200 WRITE (9) (A(IK)»B(IK)*CUK)«IK=1*NT) 

c 

400 continue 

IF< IPASS*EQ*2 ) GO Tq 500 

C * TEST IF OFF BODY COMPLETED 

410 IF(BON) 420»500»420 
420 B0N=0.0 

L1=NT 
N1*0 
JI«0 


00052000 

00052010 

00052020 

00052030 

00052040 

00052050 

00052060 

00052070 

00052080 

00052090 

00052100 

)0052110 

00052120 

00052130 

00052140 

00052150 

00052160 

00052170 

00052180 

00052190 

00052200 

00052210 

00052220 

00052230 

00052240 

00052250 

00052260 

00052270 

00052280 

00052290 

00052300 

00052310 

00052320 

00052330 

00052340 

00052350 

00052360 

00052370 

00052380 

00052390 

00052400 

00052410 

00052420 



n n i n n rv n n 


DO ^50 K*1*NB 
M1=N1+1 
N1*N1+ND(K J-1 
Do ^40 J^MltNl 
J1»J1+1 

X2(J) = (X1( Jl+D+XK JU )/2* 

Y2(J) = (Y1( J1+1) + Y1( J1 M/2. 

440 CONTINUE 
450 continue 
GO TO 10 

500 continue 

REWIND 11 

RETURN 

END 

♦DECK XYZ 

subroutine xyz 

* control for X>Y*Z MATRICES COMPUTATION 


COMMON/CPN/ NB»N0( 3 ) »NT »B0N »YZER0* lAC* I ♦ J * J1 
1 tSj*DS*pX»DYfNI *XJ*YJ*XK*eEK»EK< 

large DMK 81191) *X0B( 1000) ♦YOBUOOO) *Z0BU000) 

1 ,*X1(1aO) *YKiaO) *SINAU40) »COSA(140) 

2 *X2( lOOO ) VY2 (1000 ) ♦SdT < 1000 ) ' icOT C 1000 ) 

3 *AI140> *B(140) *C(140J *AX(l40> 

* START 

IF (BON) lOOtlOflOO 
10 IF (J-n 110*20*110 
C ‘ ' * J EQUAL I PATH 

20 T1*.5»0ELS( J) 

SJ»Tl/Y2(J) , 

IF TSj-.08) 30*30*40 
30 call XVZl 

GO TO 1000 ^ _ ; _ • 

4^ SJ®*08 ^ 

call XYZl 
NI*33 

T2».08#Y2( JJ 
DS*(Tl“T2)/32. 

0X=0S*C0SA( J) 


00052430 
00052440 
00052450 
00052460 
00052470 
00052480 
00052490 
00052500 
00052510 
00052520 
00052530 
00052540 
00052550 
00052560 
00052570 
00052580 
00052590 
00052600 
00052610 
00052620 
00052630 
00052640 
■■ ‘00052650 

00052660 
*D£LS(140) 00052670 
00052680 
*AYI140) 00052690 

00052700 
00052710 
00052720 
00052730 
00052740 
00052750 
00052760 
00052770 
00052780 
_ 00052790 

00052800 

30052810 
. 00052820 

00052830 
00052840 
00052850 



n n on 


OY=DS*SINA( Jl 
XJ=X2( J)+T2*C0SA( J)-DX 
YJ=Y2{ J»+T2*SINA( J)-OY 
CALL XYZ2 
'•>0 TO 300 

C * INITIAL Y COORDINATE MID-POINT FOR ZERO TEST 

100 YZER0=Y2( n-*OU0001 

# J not equal I PATH 

* COMPUTE minimum DISTANCE To I MIDPOINT 
110 D1=IX2 n )-XH Jl ) )**2 + < Y2 ( n-Yl ( Jl ) )#*2 

X22=(X1( Jl-*-l )-»-Xl( Jl n»0*5 
Y22 = (Yl( J1+1)+Y1( Jln*U*S 
02=(X2( n-X22)**2+< Y2< I l-Y22l**2 
D3«(X2( n-XK Jl + 1) )**2+<Y2( IJ-Yl CJl + 1 ) )**2 
IF (Dl-02) 130.130.120 
120 IF (D2-D3) 150*150»1AO 
130 IF (01-03) X60»160»1AO 
140 DM*S(JRT(D3) 

GO TO 170 
150 DM*SORT(D2) 

60 To 170 
160 0M=S0RT(D1) 

» COMPUTE NO* OF INTERVALS! N I ) AND DELTA S (OS) 
FOR SIMPSON RULE INTEGRATION 
17q IF (DM*£0«0*0) Go TO ZUU 
N I =8*#OELS ( J ) /OM+0 • 9 
IF (NI> 180*180»190 
180 NI=3 

OS*OELS( J )/2* 

GO TO 220 
190 NI=NI+NI 

IF (Nl-128) 210*200.200 
200 NI»129 

DS»0ELS( J)/128. 

60 TO 220 

210 XN1<NI 

DS*DELS( J)/XNI 
Nl'NI+1 

220 DXsOS*COSA( J) 

DY»0S»SINA( J) 

300 XJ»X1(J1)-DX 
YJ=Y1(J1)-DY 
CALL XYZ2 


00052860 

00052870 

00052880 

00052890 

00052900 

00052910 

00052920 

00052930 

00052940 

00052950 

00052960 

00052970 

00052980 

00052990 

00053000 

00053010 

00053020 

00053030 

00053040 

00053050 

00053060 

00053070 

00053080 

00053090 

00053100 

00053110 

>0053120 

00053130 

00053140 

00053150 

00053160 

00053170 

00053180 

00053190 

00053200 

00053210 

00053220 

00053230 

00053240 

00053250 

00053260 

00053270 

00053280 



ro 

VI 

\o 


O 


1000 return 00053290 

END 00053300 

♦DECK XYZl 00053310 

subroutine XYZl 00053320 

C 00053330 

C ♦ COMPUTE XtY»Z MATRICES FOR Sj LESS THAN OR EQUAL .08 00053340 

C 00053350 

C 00053360 

COMMON/CPN/ NB»NDI3) »NT.BON.YZERO*IAC*I*J»Jl 00053370 

1 ,SJ»0S*DX.0Y»NI *XJ*yj»XK.EEK»EKK 00053380 

C 00053390 

large DMl (81191 J *X0B( lOOOl .YOBdOOO) .208(1000) 00053400 

1 *X1(140) *Y1(140) »SINA(140) .CoSA(140> .DElS(140) 00053410 

2 »X2(1000) .Y2(1000) .SDT(lOOO) .COTdOOO) Q0053420 

3 »A(140) »B(140) .C(140) .AX(140) »AY(140) 10053430 

C 00053440 

C * START 00053450 

C ♦ INITIALIZE 00053460 

T1»SJ»SJ 00053470 

T2»AL0G(SJ/8. ) ' 00053480 

T3»SINA( J)*SINA( J) 00053490 

T4»T2+T3 00053500 

T5=.666666667^T3 00053510 

T6»T5*T3 00053520 

T7«SJ+SJ 00053530 

T8=T7+T7 : ■' 00053540 

T9»6.2831853*C0SA( Jl 00053550 

T10*6.2831853»SINA( J) 00053560 

C * AXIS FLOW - 00053570 

20 T11=T1»SJ 00053580 

AX(J)»T10+SINA( J)*COSA( J)*l T7+ ( T4+2. 16666667 )*Tl 1 / 12 . ) 00053590 

AY(J)»T7*T4-f9d i.+t2- ' " ' ” 00053600 

100 RETURN 00053610 

END _ 00053620 

♦DECK XYZ2 ™ 00053630 

SUBROUTINE XYZ2 00053640 

C 00053650 

C " ♦ COMPUTE xVYiZ MATRICES USING STMPSOn”^ RULE INTEGRATION" 00053660 

C 00053670 

C 00053680 

COMMON/CPN/ NB*ND(3) *NT»B0N*YZER0*1AC»I.J.J1 00053690 

1 .Sj.DSfOX.DY.NI.XJiYj.XK.EEK.EKK 00053700 

C 00053710 



n n n 


large 0MK81191) *XOBUOOO) tYOBHOOO) 

1 ♦XKIAO) »Y1(140J »SINA(140) 

2 ,X2(1000) »Y2aoOO) *SDT(lOO0) 

3 »A(140) *BU40) »C(140) 

* START 

# INITIALIZE 
S2««666666667*DS 
T1*Y2I I >#Y2( I ) 

C * NO. OF INTERVAL LOOP 

DO 1000 IS«lfNl 
XJ*XJ+OX 
YJ*YJ+0Y 
T2»YJ*YJ 
T3»X2(n-XJ 
T4=T3*T3 

T5»(Y2( n+YJ)»*2 

T6*T4+T5 

T7*S0RT(T6) 

T8«T2+T4 

T9»(Y2I n-Yj )**2 
Tl0aT9+T4 

g> C * COMPUTE ELLIPIC INTEGRAL 

XK-IT4+T9J/T6 
CALL EL IP 

C * AXIS FLOW 

20 TU*YJ/T7 

F1*T11*T3»EEK/T10 

IF (Y2( n.NE.0.0) GO TO 25 

F2«0.0 

GO TO 26 

25 F2»T1I*(EKK+EEK*(T1~T8)/T10)/Y2< I ) 

26 F3sT11»EKX 

C * SIMPSON RULE INTEGRATION 

IF < lS-1 » 30*30.40 

♦ FIRST PASS 

30 AXS»F1 
AYS*F2 
IA*0 

60 TO 1000 

40 IF (IS-NI) 50.80.50 
50 IF (lA) 70.60.70 


C 


♦ ZobUOOO) 00053720 

.C0SA(140) .DELS! 140) 00053730 
.con 1000) )005374 o 

.AXC140) .AYU40) 00053750 

00053760 

00053770 

00053780 

00053790 

00053800 

00053610 

00053820 

00053830 

00053840 

00053850 

00053860 

00053870 

00053880 

00053890 

00053900 

00053910 

00053920 

00053930 

00053940 

00053950 

00053960 

00053970 

00053980 

00053990 

00054000 

00054010 

00054020 

00054030 

00054040 

00054050 

00054060 

00054070 

00054080 

00054090 

00054100 

00054110 

00054120 

10054130 

00054140 



n n n n n 


ro 

o\ 

M 


C * EVEN PASS 

60 AXS=AXS+4.»n 
AYS=AYS+4*#F2 
I Aal 

60 TO 1000 

C ♦ ODD PASS 

70 AXS=AXS+F1+F1 
AYSaAYS+F2+F2 
TA=0 

GO TO 1000 

c * last pass 

80 S4»S2-^S2 

IF (J-n 100*90*100 

90 IF (BON. NE. 0.0) GO TO 100 
AX (J ) =AX IJ ) -S4* ( AXS-*F 1 ) 

AY( J)sAY( J)-S2#(AYS+F2) 

GO TO 1000 

100 AX( J)a-S4*( AXS+Fl) 

AY(J1 =-S2*( AYS+F2> 

1000 CONTINUE 

return 

END 

♦DECK ELIP 

SUBROUTINE FLIP 

* HASTINGS APPROXIMATION FOR ELLIPTIC INTERGALS 
COMMON/CPN/ NB*ND(3)*NT*BON*Y2ERO*IAC»I»J*JI 

1 *sj*ds*dx*oy*ni»xj.yj*xk*eek*ekk 


00054150 

00054160 

00054170 

00054180 

00054190 

00054200 

00054210 

00054220 

00054230 

00054240 

00054250 

00054260 

00054270 

00054280 

00054290 

00054300 

00054310 

00054320 

00054330 

00054340 

00054350 

00054360 

00054370 

00054380 

00054390 

00054400 

00054410 

00054420 

00054430 


10054440 

♦START _ 00054450 

10 ETAsXK 00054460 

IF (ETA) 20*20*40 00054470 

20 WRITE (6*30) ETA*I*J 00054480 

30 FORMAT i IHO 36H ♦*♦ ERROR IN SUBROUTINE EL IP ♦ ETA* F15.8 / 00054490 

1 6H ♦ I=I6*5X.5H * J=I6*5X*27H ♦ ALOG(ETA) SET TO “88.028)00054500 

ELN=“88.028 00054510 

ETAaO.O "■ 00054520 

GO TO 50 00054530 

40 ELN*AL0G(ETA) 00054540 

50 EKK*1 .306294361 12+ETA#(0.09666344259+ETA#(0.035900923834ETA#( 00054550 

1 0. 03742563713+ETA^O. 01451196212) ) >~ELN#(0.5+ETA^( 00054560 

2 0.12498593597+ETA*(0.06880248576+ETA*(0.03328355346+ETA* 00054570 



no nn o nonr\r»rv 


3 0»004417870l2n n 

EEK = le-f'ETA««0oi»4325l4l463-J-ETA«(Q®06260601220+ETA^^t090i^7573835^6 

1 ^ETA*0«017365064511 H -ELN* ( ETA* ( 0 o24998368310+£TA-» ( 

2 0©09200180U37-»-ETA*(0o04069697526+ETA*0®00526449639) ) ) ) 

RETURN 

END 

*0ECK MATAPE 

SUBROUTINE MATAPE 

COMBINE INFLUENCE MATRICES AND SETUP FOR MATRIX SOLU® 
ALSO CALC INFLUENCE OF WING AND PYLON THICKNESS ON 
boundary condition (MATRIX-B) 

COMMON/ DAT/ DA (5000) 

COMMON/CRG/ PI t»PI49RC»0ETA 
COMMON/CFG/ IDS » IDF® IDW 9 I OP 9 ION 

1 eNQB9NQF»NQWeNQP jNQN 

2 oNK09MKF»NKWeNKP9NKN 

large BT(IOOO) {iBfeHlOOO) «BP(l*-'00) «DMl( 585U) 

1 oBXN(650) iiBYN{650) *BZN(6505 »DM2(23050) 

2 *FXN(650) 9FYN(650) 9F2N<650) 9DM3(48671) 

3 »SINAN( 140) »C0SAN( 140) »DM4 { 140 ) 

4 »AX(250) PAY1250) 4AZ(250) »A(250) 

INIT lAL 

not =NQB+NQF+NQW+NOP+NON 
DO 10 I=1*NQT 
BW< n=o«o 

10 BP( I)=0*0 . 

IX*0 

CONTROL POINTS Q ON FUSELAGE 
IF(IDB*EQ.0) GO TO 100 
DO 90 I0»1*NQ8 
IC=0 

COMBINE I NFL OF FUSELAGE 
READ (19) ( AX( I ) »AY( I) *AZ( I ) *I=lfNKB) 

DO 20 I=1*NKB 

IC»IC^l , , 

20 A( IC)=AX( I )*BXN( IQ)+AY( I )*BYN( I0)+AZ( I )*B2N< 10) 

C COMBINE I NFL OF FANPOD 


00054380 

00054590 

00054600 

00054610 

00054620 

00054630 

00054640 

00054650 

00054660 

00054670 

00054680 

00054690 

00054700 

00054710 

00054720 

00054730 

00054740 

J0054750 

00054760 

00054770 

00054780 

00054790 

00054800 

00054810 

00054820 

00054630 

00054840 

00054850 

00054860 

00054870 

00054880 

00054890 

00054900 

00054910 

00054920 

00054930 

00054940 

00054950 

00054960 

00054970 

00054980 

00054990 

00055000 



1FUDF.EQ#0) GO TO 40 

READ (20) ( AX< n *AY( I) *AZn ) fl^ifNICF) 

DO 30 I'lfNKF 
IC=IC+1 

30 A( IO»AX( I)*BXNnQ)+AV( I)*BYN( lQ)-»-AZ( I J#BZN( IQ) 

C COMBINE I NFL OF wlNG 

40 IX=IX+1 

IF(IDW.EO.O) GO TO 60 

READ (21) (AX( n *AY( n »AZ(I ) *IalfNKW) *TUV*TVV*TWV 
BW( IX)=BETA*(BETA*TUV*BXN( IQ)+TVV*BYN( IQ )+TWV*BZN ( I Q) ) 
00 50 I»1*NKW 
IC»IC+1 

50_ A( IC)*AX( I)*8XN( IQ)-*-AY( I)*BYN( IQ)+AZ( I)*BZN( IQ) 

C COMBINE I NFL OF PYLON 

60 IF(IDP,EQ*0) GO TO 80 

READ (22) (AX(I)*AY(n.AZ(I)*l = l*NXP)*TUV>TVV*TWV 
BP( IX ) = RETA*(BETA*TUV*BXN( IQ)-»-TW#BVN( IQ) + TWV»BZN( 10) ) 
DO 70 r*l*NKP 
IC*IC+I 

70 A(IC)aAX(I)*BXN(lQ)-*'AY(I)*BYN(lQ)+AZ(I)*BZN(lQ) 

C WRITE INFL MATRIX ON UNIT 12 

. 80 WRITE (12) (Ad )tIal»IC) 

90 CONTINUE 

C. , 

c» control points q on fanpoo 

lOO IF(IDF.EO.O) GO TO 200' 

DO 190 IQ=1*NQF 
IC*0 

C combine INFL OF FUSELAGE 

IF( IDB.EQ.O) GO TO 130 
READ (19) (AX( I ) >AY( I ) «AZ( I) »IsltNKB) 

DO 120 I=1*NKB 
ICaIC+1 

120 A( IC)=AX( n*FXN(lQ)-^AY( I )*FYN( lQ)-*-AZ( I )*FZN( IQ) 

130 CONTINUE 

C COMBINE INFL OF FANPOD 

READ (20) ( AX( I ) *AY( I ) »AZ( I ) >I-1*NXF) 

DO 140 I=ltNXF 
IC»IC+1 

140 AdC)=AX( I )*FXN( IQ)+AY( I )*FYN( IO)+AZ( I )*FZN( IQ) 

IXalX+1 

C COMBINE INFL OF WING 

1F( 1DW.EQ«0) GO TO 160 


00055010 

00055020 

00055030 

00055040 

00055050 

J0055o6o 

00055q70 

00055000 

00055090 

00055100 

00055110 

00055120 

00055130. 

00055140 

00055150 

00055160 

00055170 

00055180 

00055190 

00055200 

00055210 

00055220 

00055230 

00055240 

00055250 

00055260 

00055270 

00055280 

00055290 

00055300 

00055310 

00055320 

00055330 

00055340 

00055350 

00055360 

00055370 

00055300' 

00055390 

00055400 

00055410 

00055420 

00055430 



READ <211 <AX( I ) *AY( n *A^( n ♦r=l*NKW) »TUV*TVV»rwV 
8W( IX > = BETA*(BETA»TUV*FXN( IQ)+TVV*FYN( IQ) + TWV*FZN( IQ) ) 
DO 150 I=1*NKW 
IC*IC+1 

150 At IC)=AX( n*FXN( IQ)-fAY( I )#FYN( IQ)+aZ( I J»FZN( IQ) 

C COMBINE I NFL OF PYLON 

160 IF(IDP*EO.U) GO TO 180 

READ (22) ( AX( I ) tAYt I ) »AZt I ) *I=1»NKP) *TUV.TVV»TWV 
BPt IX )=BETA*(BETA*TUV*FXN( I0)+TVV#FYN( IQ)+TWV«FZN( IQ) ) 
DO 170 I=ltNKP 
IC»IC+1 

170 At IC)=AXt I)*FXN t IQ)+AY ( I )*FYNt IQ)**-AZt I )*FZN( IQ) 

C WRITE INFL MATRIX ON UNIT 12 

180 WRITE (12) ( At I ) * 1 = 1 * IC ) 

190 continue 

C 

C* CONTROL POINTS Q ON WING 

700 IF(I0W*EQ*0) GO TO 300 

DO 290 IQ=1*N0W 
IC=0 

C COMBINE INFL OF FUSELAGE 

IFt IDB*EQ*0) GO TO 230 

READ (19) { AXt I ) »AY( I) »AZt I ) .I=1»NKB) 

DO 220 I=1*NKB 
IC=IC+1 

220 At IC)=-AZ( I ) 

c Combine infl of fanpod 

230 IF(IOF.EO*U) GO TO 250 

READ (20) (Axtn »AY( I),AZtn »I = lfNKF) 

DO 2A0 I=1*NKF 
IC = IC«»-1 

2A0 At IC)=-A2( I ) 

250 IX=IX+1 

C COMBINE INFL OF WING 

READ (21) (AZU) ♦I*1»NKW) 

DO 260 I=1«NXW 
IC=IC+1 

260 At IC)*AZ( I ) 

C COMBINE INFL OF PYLON 

IFt I0P.£Q*0) GO TO 280 

READ (22) t AXt I) »AY( I)*AZ( I) *I=1*NKP) *TUV»TVVfTwV 
BPt IX)=-TWV*BETA 
DO 270 I=ltNKP 


00055440 

00055450 

00055460 

00055470 

00055480 

00055490 

00055500 

00055510 

00055520 

00055530 

00055540 

00055550 

00055560 

00055570 

00055580 

00055590 

00055600 

00055610 

00055620 

00055630 

00055640 

00055650 

00055660 

00055670 

00055680 

00055690 

00055700 

00055710 

00055720 

00055730 

00055740 

00055750 

)0055760 

00055770 

00055780 

00055790 

00055800 

000558X0 

00055820 

00055830 

00055840 

00055850 

00055060 
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IC=IC-H 

270 A( IO*-AZ( I ) 

C WRITE INFL MATRIX ON UNIT 12 

280 WRITE (12) (A(I)*I=1»IC) 

290 CONTINUE 
C 

C* CONTROL POINTS Q ON PYLON 

300 IF(IDP.EQ.O) GO TO 400 
DO 390 IQ*1»NQP 
IC*0 

C combine INFL OF FUSELAGE 

IFdOB.EO.O) GO TO 330 
READ (19) (AX( 1) »AY( I )»A2( I) 

DO 320 i=l»NKe 

rc»ic+i 

320 A(IC)«-A2m 

C combine INFL OF FANPOD 

330 IF(IOF.EO.O) GO TO 350 

READ 120) ( AXd ) *AY( n »AZ( I ) *I=1»NKF) 

DO 340 I»1»NKF 

ic=ic+i 

340 A(1C)=-A2(I) 

350 IX«IX-H 

c combine Tnfl of wing 

IFn0W*E0*0) GO TO 370 

READ (21) (AX( i) *AY( I ) *AZ( 1 ) »I*1*NKW) »Tuy.TVV»TWV 
BW( IX)«-BETA4TWV 
DO 360 I=lfNKW 
1C«!C+1 

360 A( IC)»-A2( n 
370 CONTINUE 

C COMBINE INFL OF PYLON 

READ (22) (AX( I).AY( I )*AZ( I) »I=1*NKP) »TUV»TVV*TWV 

DO 380 

IC=IC+1 

380 A(IC)»AZm 

C WRITE INFL MATRIX ON UNIT 12 

WRITE (12) iA(rr*f=itic) • ' 

390 CONTINUE 
C 

C« CONTROL POINTS Q ON NACELLE 

400 IF(I0N.EO«O) GO TO 500 

C# THE MINUS sign BEFORE COSAN IS DUE TO AY BEING IN THE 


00055870 
00055880 
00055890 
00055900 
00055910 
00055920 
00055930 
00055940 
00055950 
00055960 
00055970 
00055980 
00055990 
00056000 
00056010 
00056020 
00056030 
00056040 
00056050 
00056060 
J0056o7o 
00056o8o 
00056090 
00056100 
00056110 
00056120 
00056130 
00056140 
00056150 
00056160 
00056170 
00056180 
00056 19Q 
00056200 
00056210 
00056220 
00056230 
00056240 
00056250 
00056260 
00056270 
00056280 
00056290 
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C.P pylon coord. SYS.. AY IS EQUAL TO -AY IN NACELLE SYS. 

DO 490 IQ=1*NQN 
IC=0 

C COMBINE I NFL OF FUSELAGE 

IF( IDB.EQ.O) GO TO 420 
READ (19) ( AXU ) «AY( n »AZ( I) • 1 = 1 »NKB) 

DO 410 I*1»NKB 
IC=IC+1 

410 A ( IC)=-SINAN( IQ)*AX( I )-COSAN( IQ)*AY( I ) 

C COMBINE INFL OF FANPOD 

420 IF(IDF.EQ.O) GO TO 440 

READ (20) ( AX( I) »AY( I ) »AZ( I ) »I=1»NKF) 

DO 430 I*1«NXF 
IC»IC+l 

430 A( IC)«~SINAN( lQ)#AXt I )-COSAN( lQ)*AY{ I ) 

440 IX»IX+1 

C COMBINE I NFL OF WiNG 

IFdDW.EO.O) GO TO 460 

READ (21) ( AX( I ) *AY{ I ) *AZ( I ) • I=1»NKW) »TUV*TVV.TWV 
BW( IX )*BETA*(-S1NAN( I Q ) *TUV*BET A-COSAN ( IQ)*TVV) 

00 450 I=1*NKW 
IC*IC+1 

450 A< IC)«-SINAN( IQ)»AX( I )-COSAN( IQ)*AY( I ) 

C COMBINE INFL OF PYLON 

460 IF(IDP.EQ.O) GO TO 480 

READ (22) (AXm*AY(I)fAZ(i).I = l»NKP)*TUV*TVV»TWV 
RP( IX)sBETA*(-SINAN( IQ)«TUV*BETA-C0SAN( IQ)*TVV) 

DO 470 I*1»NKP 
IC=IC+1 

470 A( IC)«-SINAN( IQ)»AX( I )-COSAN ( IQ)*AY( I ) 

C WRITE INFL MATRIX ON UNIT 12 

460 WRITE (12) (A(I)>I=l*IC) 

490 CONTINUE 

* REWIND I/O units 

500 REWIND 12 

IF(IOe.NE.O) REWIND 19 
IF(IOF.NE.O) REWIND 20 
IF( IDW.NE.O) REWIND 21 
IFUDP.NE.O) REWIND 22 
C 

C* SETUP ON unit 10 THE INFLUENCE MATRICES OF NACELLE 

IF( IDN.EQ.O) GO TO 700 


00056300 

00056310 

000&6320 

00056330 

00056340 

00056350 

000&6360 

30056370 

>0056380 

00056390 

00056400 

00056410 

00056420 

00056430 

00056440 

00056450 

00056460 

00056470 

00056480 

00056490 

00056500 

00056510 

00056520 

00056530 

00056540 

00056550 

00056560 

00056570 

00056580 

00056590. 

00056600 

00056610 

00056620 

00056630 

00056640 

00056650 

00056660 

00056670 

00056680 

00056690 

00056700 

00056710 

00056720 



C Q ON FUSELAGE 

IF( IDB^EOiO) GO TO 530 
DO 520 IQ»l»NQB 

READ (9) ( AX( n *AYi n *AZ< I ) * 1 = 1 «NKN) 

DO 510 I=1*NKN 

510 A( n=AX( I )*BXNt IQ> + AY( I »*BYN< tQ)+AZ< I )*BZNl 10 > 
520 WRITE (10) (A( n *I=1*NKN) 

C 0 ON FANPOD 

530 IF(IDF,EQ.0) GO TO 560 

DO 550 IQ=1*NQF 

READ (9) ( AX( I ) *AY( n *AZl I ) *I=1»NKN) 

, 00 540 I=ltNKN 

540 A( n=AX( r )*FXN( IO)+AY( I >»FYN< I0)4-AZ( I )*FZN( IQ) 
550 WRITE (10) (A( I ) »I=1 »NXN) 

C 0 ON wing 

560 IF(IDW*E(3.0) GO TO 590 

DO 580 IQ=l*NQW 

READ (9) ( AX( I ) »AY( I ) »AZ( I) »I=1»NKN) 

DO 570 I»1*NKN 
570 A( I)=-AZ( I ) 

580 write (10) (AU ) *I=1*NKN) 

590 IF(IDP*EQ.O) GO TO 620 
DO 610 IQ»l.NOP 

^ C Q ON PYLON 

READ (9) ( AX( n tAY( 1 ) *AZ( I ) » I-l tNKN) 

DO 600 I=lfNXN 
600 A( I )»-AZ( I ) 

610 WRITE (10) (A( n »I=1*NXN) 

C Q ON nacelle 

620 DO 640 10=1 tNON 

READ (9) (AX(I)*AY( I)*AZ(I)»I = 1*NKN) 

DO 630 I=1»NKN 

630 A( n-^SlNANI IO)*AX( I >+C0SAN( IQ)*AY( I ) 

640 write (10) ( AU ) »l = l »NKN) 

c 

REWIND 9 

rewind 10 

C — ~ 

700 return 
END 

♦DECK mats 

SUBROUTINE MATB 
C 


00056730 

00056740 

00056750 

00056760 

00056770 

00056780 

00056790 

00056800 

00056810 

00056820 

00056830 

00056840 

00056850 

00056860 

00056870 

00056880 

00056890 

00056900 

00056910 

00056920 

00056930 

00056940 

00056950 

00056960 

00056970 

00056980 

00056990 

00057000 

00057010 

00057020 

00057030 

00057040 

00057050 

00057060 

OOO5707O 

J00&7q80 

00057q9o 

00057100 

00057110 

00057120 

00057130 

00057140 

00057150 
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c* 

c 

c 

c 


c 

c 

c* 

c 

c* 


CALC MATrIX-B 
COMMON/DAT/ DA (5000) 

EQUIVALENCE (DA(6)*FAA) «(0A(8)*WAA) ♦ (DA( 10) tWAOI ) 

1 » (DA(9) srtAAII » tOA( A006 ) »BAA) 

2»<DA(1960)»DAF1 » ( 0A( 1961 ) *PXCF ) * ( OA ( 1962 ) t ETF I) »( DA (1963) »E7F0) 

3»(DA( 1965)*DAK> *(DA( 1966) «PXOO » ( DA( 1967 ) »ETk I) * ( DA ( 1 968 ) *ETKO ) 
4» ( DA( 250A) *PAA) t ( DA( 2505 ) «PAAI ) * ( DA ( 2506 ) ’PADI) 

COMMON/ CRG/ PI *P lA *RC*BEIA »SIN0P»C0SDP 

COMMON/ CFG/ lOB » IDF * IDW* lOP » I0N*NQ8 *NQF .NQW»NQP*NQN 

COMMON/CPB/ I8K9) »SI8A.C0BA 

COMMON/CPF/ IF1(9) *SIFA»C0FA 

COMMON/CPW/ IWK 13) »NJC»NJS 

COMMON/ CFK/ NDA 


00057160 

00057170 

00057180 

00057190 

00057200 

00057210 

00057220 

00057230 

00057240 

00057250 

00057260 

00057270 

00057280 

00057290 

000573C)0 

00057310 

00057320 


LARGE BT(lOOO) tBW(lOOO) »BP(l000) »DM1(6850) 00057330 

1 tBXN(650) .BYN(650) »B2N(650) »DM2(23050) 00057340 

2 »FXN(650) *FYN(650) ♦FZN(650) *DM3( 16956) 00057350 

3 ,05(650) »EP(30) *XTLP(30) *XOCP(30) » DM4 ( 26285 ) 00057360 

4 *BSP(360) ,0M5(4330> *SlNAN(140) 00057370 

00057380 


START 

SETUP SB DUE TO THICKNESS 
N(3T =NQB-fNQF-f NQW+NQP+NQN 
00 10 I»1*NQT 
10 BT( n*BW( I)+BP( I ) 

CAlC MATRIX-B OF THE BODY 

IFUOB.EO.O) GO TO 25 
BAA8«BAA/RC*BETA 
COBA*COSC BAAB) 

SIBA»SIN( BAAB) 

DO 20 I=1*NQB 

20 8T (I ) =-*C06A*BXN ( I) -S I BA*BZN ( 1 ) -BT ( I ) 

25 IS»NOB 

CALC MATRIXES OF THE FANPOO 
IFUDF.EQ.O) 60 TO 40 
FAAB*FAA/RC*BETA 
COFAaCOS(FAAB) 

5IFA»SIN(FAAB) 

DO 30 I«1*NQF 
ISaIS+1 


10057390 

00057400 

00057410 

00057420 

00057430 

00057440 

00057450 

00057460 

00057470 

00057460 

00057490 

00057500 

00057510 

00057520 

00057530 

00057540 

00057550 

00057560 

00057570 

00057580 



30 BT(IS>*~C0FA*FXN( I 1-SIFA*FZn< I )-8T< IS) 

C* CALC MATRIX-B OF THE WING 

40 IF(IOW.EQ.O) GO TO 150 
WAAR»WAA*BETA/RC 
IFIWAAI) 70.70*90 
70 00 80 I»1.N0W 
IS*IS+1 

BS( l>»WAAR/BEtA 
80 BT(1S)-WAAR>BT(IS) 

GO TO lAo 

90 IF(WADI) 100. 100.110 
loo CALL WCAS 
GO TO 120 
110 call WCZCS 
120 DO 130 1*1. NOW 
IS»!S+1 

0S< n«8S( n+WAAR/BETA 
130 8Tns)=8S( n *8ETA -BT(IS) 

140 CONTINUE 

C* ' ADO flap and/or XRUEGER DEFLECTION 

IF(NOA.EQ.O) GO TO 150 
IB»NQB+NQF 

AF»ATANIBETA*TAN(DAF) ) 

BCDF«C0S(AFJ 

BSDFsSIN(AF) 

AK*ATAN(BEtA*TAN(DAK)) 

BCDK*C0S(AKJ 

BSOK=SINIAK> 

. DO 146 IS=1*NJS 
DO 144 IC»1*NJC 
XC»XOCPUC) 

'IB'IB-H - ' - ' 

IF(OAF.EO.O.O) GO TO 142 
IFiEPUSI.LT.ETFI) GO TO 142 
I F ( EP n S ) #GT . ET FO I 60 TO 14 2 ’ ■ 

IF(XC.LE.PXCF) go to 142 
BTUB)»BT( IB)*BCOF+BSOF _ 

142 IFIOAK.EOioidy GO T0'i4C 

IF(EPnSULT.ETKI) GO TO 144 
IFtEpI IS).GT.ET)CO) GO TO 144 
IFIXC.GE.PXCIO GO TO 144 
BT( IB)*BTUB)*8COK-BSOK 
144 CONTINUE 


00057590 

00057600 

00057610 

00057620 

00057630 

00057640 

00057650 

00057660 

00057670 

00057680 

00057690 

>0057700 

00057710 

00057720 

00057730 

00057740 

00057750 

00057760 

00057770 

00057780 

00057790 

00057800 

00057810 

00057020 

00057830 

00057040 

00057850 

00057860 

00057870 

00057880 

00057890 

00057900 

00057910 

00057920 

00057930 

00057940 

00057950 

00057960 

00057970 

00057980 

00057990 

00058000 

00058010 



1^6 continue 

150 IFdDP.EQeO) GO TO 240 
C* CALC MATRIX-B OF THE PYLON 

PAAR=PAA«BETA/RC*S iNOP 
IFIPAAM 170*170*190 
170 DO 180 1=1. NOP 
IS*IS+1 

BSP< 1 )=PAAR/BETA 
100 BT{ IS>*PAAR-BT( ISl 
GO TO 240 

190 IFIPADI) 200.200.210 
200 CALL PCAS 
GO TO 220 
210 CALL PCZCS 
220 DO 230 I»1.NQP 
IS»IS+1 

BSPl n»BSP( I )+PAAR/BETA 
230 BT(IS)sBSP(I) *BETA -BTCIS) 

240 IF(ION.eO.O) GO TO 200 

CALC MATRIX-B of THE NACELLE 
DO 250 Isl.NON 
IS»IS4.1 

250 BTUS)«SINAN( n-BTUS) 

C* PRINT MATRIX-8 

280 IF<DA(121*LT.0.0) GO TO 300 

write (6.290) (BT( IS) .IS=1.N0T) 

290 FORMAT ( 12H1 * MATRlX-8/(lH IOFIO.5)) 
300 RETURN 
END 

♦DECK WCAS 

SUBROUTINE WCAS 

C 

c SUBR. TLU table LOOKUP FOR THE LOCAL 


C ETA and X/C. 

C 

COMMON/ DAT/ DA (5000) 

C 

DIMENSION Bid) *WXC(24) 

1 »TWld9) 

C 

EQUIVALENCE ( DA( 7U6 ) »WXC ) 

1 » (0A( 1690) .WJS) ♦ (0A(1970) »TWI ) 
2»(DA(750).BI ) 


00058020 
00058030 
00050040 
00050050 
00050060 
00058070 
00058080 
00058090 
00058100 
00050110 
00058120 
00058130 
00058140 
00058150 
00058160 
00050170 
00058100 
00058190 
00050200 
00050210 
00058220 
00058230 
00058240 
00058250 
00058260 
00058270 
00058200 
00058290 
00058300 
00058310 
00058320 
00058330 

angle of attack AT SPECIFIED 00058340 

00058350 
00058360 
00050370 
00058380 

*WET(19) »WJC(30) »rtJS(30) 00058390 

10058400 

00058410 

• (DA( 731 ) »WET ) »(DA(1660) »WJC) 00050420 

♦ (DA( 1270 ) »WNVC) 00058430 

00058440 
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ro 


COMMON/CPW/ DWl 1 13 ) »NJC»NJS 
C 

large BOOOOOO) »FUSl 25000) »FAN{23700) 

1 »EVt52) .OMmOGA) »BSt650) *DM2(60) 

START 

NXW=*0A( 705 ) 

NEW=DA(730) 

IB = U 

00 620 IJS=1 »NJ5 
IE=WJS( US) 

TF(EV< lEl-WETl 1 ) ) 510*510»515 
51U J*1 

GO TO 530 

515 DO 520 NC=2*NEW 
J=NC 

IF(EO( IE)-WET( J) ) 5AJ*530t520 
520 CONTINUE 
530 RATY=U,0 
GO TO 550 

5 AO RATY=(WET( J)-EO( IE) I / < WET (J ) ~WET < J-1 ) ) 

550 TWB=TWIU >“RATY*ITWI( J)-Twn J-in 
DO 610 IJC=1*NJC 
XC=XOCP( IJC) 

!F(XC-WXC( 1 ) ) 560t560*565 
560 1=1 

GO TO 580 

565 DO 570 NC=2*NXW 
I»NC 

IF(XC-WXC(n» 590»58U»570 
570 continue 
580 RATX=0*0 
GO TO 600 

590 RATX= )WXC( t )-XC)/( WXC( I)-WXC( I~1 ) 1 
600 NPX = I+NXW»U“1 ) 

AX=BI (NPX)~RATX*(Bi(NPX)-Bl (NPX-D) 

NPX=NPX-NXW 

BX = BI( NPX )-RATX»( BM NPX )-8I( NPX-1 ) ) 

16 = 18+1 

610 8S1IB)=AX»RATY*(AX-BX)+TWB 
620 CONTINUE 
RETURN 


00058450 
00058460 
00053470 
00058480 
*X0CP(30) 00058490 

00058500 
00058510 
00058520 
00058530 
00058540 
00058550 
00058560 
00058570 
00058580 
00058590 
00058600 
00058610 
00058620 
00058630 
00058640 
00058650 
00058660 
00058670 
00058680 
00058690 
00058700 
>0058710 
000^8720 
00058730 
00058740 
00058750 
0U058760 
00058770 
00058780 
00058790 
00058800 
00058810 
00058820 
00058830 
00058840 
00058850 
00058860 
00058870 
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END 

*OEC< WCZCS 

SUBROUTINE WCZCS 

CALC. LOCAL ANGLES OF. ATTACK Ff OM DEFLECTION 
common/DAT/ oaisoou) 


00058880 
00058890 
00058900 
00058910 
INPUT (Z/OU0058920 
00058930 
O00589A0 
00058950 


DIMENSION WXCt2A) »WA0IA56) *Twlll9) »WJC(30) 

i ,WJS(30) 


00058960 

00058970 

00058980 


C 


EQUIVALENCE ( DA ( 7u6 ) ♦ wXC ) ♦ <0A< 731 ) *WET ) . ( DA ( 750 ) » WAD ) 

1 * ( 0A( 1970 ) » TWn ♦ ( DA < 1660 ) » WJC ) » ( DA ( 1690 I ♦ W JS ) . < DA <1 2 70 ) ♦ WNVC 1 

COMMON/CPw/ DW'l ( 13 } »NJC .NJO 

large BOUOOOO) »FUS( 25000) .FAN( 237001 

1 »0M1(996) *WPT<60) .0S165O) 

2 »EP(3C) .XTLPOO) *X0CP130) 

3 .DMZl 2163A) ,PYL( 6061 » ♦CEL(37 oO» 

4 »XLP(19) .CHO(19) »Z1(2A) 

5 *XI(24) *X0<48) *40(48) *Z(48*19) 

6 *WEL(20) 

SET FOR COOIM AND CURVE FIT FOR DEFLECTIONS <Z) 

NXW=DA1705) 

NEW=DA( 730) 

SHIFT TO LCM for WINGD 
DO 10 I=1*NEW 
10 W£L( I ) = WET ( I ) 

call WINGD I new »WEL *XLP ♦chd ♦ WPT ) 

LD=U 

DXI=.5*( l.-COS( 1.5708/WNVC) ) 

DO lOO IE=1»NEW 
DO 20 IX=l*NXW 
LD=LD+1 

ZI ( IX)=WAD(LD)*CH0( IE) 

20 XI( IX )=WXC( IX ) 

IC=0 

DO 40 IJC=1*NJC 
IC=IC+2 

X0( IC-l)=XOCP( I JO-DXI 
40 XO( IC)=X0CP( IJCl+DXI 


00058990 

00059000 

30059010 

)0059o2o 

00059030 

00059040 

00059050 

00059060 

00059q70 

00059080 

00059090 

00059100 

00059110 

00059120 

00059130 

00059140 

00059150 

00059160 

00059170 

00059180 

00059190 

00059200 . 

00059210 

00059220 

00059230 

00059240 

00059250 

00059260 

00059270 

00059280 

00059290 

00059300 
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CALL CODIM IXl »ZI »NXW»XO*ZO» rc> 

DO 60 rx»i » ic 
60 H rx. IE)=ZO( IX) 

100 CONTINUE 

c linear interpolate for 

KK=0 

DXT=DXI-»-DXI 
DO 200 IF*l*NJS 
DX=DXT*XTLP( IE) 

IF(EP( IE) .GT.WHTdn GO TO 120 
I I-l 

GO TO lAO 

120 DO 130 IS=2*NEW 
I I = IS 

IF(EPne)-WET( IS) > 150fl40*130 
130 continue 
140 RATY*0.0 


00059310 

00059320 

>0059330 

00059340 

I SPANWISE and calc SLOPE 00059350 

00059360 
00059370 
00059300 
00059390 
00059400 
00059410 
00059420 
00059430 
00059440 
00059450 
00059460 
00059470 


GO TO 160 00059480 

15U RATY=<WET(II)-EPnEn/lWErun-WET(II-l)) 00059490 

160 TWB-TWn I I)-RATY*< TWI ( I I )-TWl (I I-l ) ) 00059^00 

IC=0 . 00059510 

DO 170 IJC=1*NJC 00059520 

IC=IC+1 00059530 

Zl = /( IC* I I )-RATY*(Z( IC* M )-Z( IC*1 1-l) ) 00059540 

IC=IC+1 00059550 

Z2=iilC*lI)-RATY*lZ(lC*n)-Z(IC*II-l)) 00059560 


XK=KK+1 

170 BS(KK)»U1-Z2)/OX+TW0 

200 continue 

RETURN 

END 

*DECK PCAS 

SUBROUTINE PCAS 

SUBR* TLU table LOOKUP FOR THE 
ETA AND X/C. 

COMMON/OAT/ DA <5000) 

DIMENSION BI(361) *PXC(19) 

C 

equivalence (DA(2531)*PXC) 

1 ♦ ( DA ( 2940 ) » T W 1 ) 


00059570 
00059580 
00059590 
00059600 
00059610 
00059620 
00059630 
00059640 

LOCAL ANGLE OF ATTACK AT SPECIFIED 00059650 

00059660 
00059670 
00059680 
00059690 

*PET119) ♦PJCU8) »T»^ni9) 00059700 

00059710 

*(DA(2551 ) *PET ) * ( DA ( 2 5 12 ) *P JC ) >0059720 
* (DA (2507) »PNVC) ♦ ( DA ( 2 570 ) * B I ) 00059730 
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COMMON/C^'P/ OPH 8 ) »NV jsNJC 

large DM1 W513U ) ♦EV ( 22 ) »DM2tl483) »CFJ<20) 

1 tOMSOlZe) «Bi3<360) 

START 

NXW=DA( 2530) 

NE»^ = DA( 2550) 

IB = 0 

DO 620 IE=1*NVS 

IF(EV( IE )-PET I 1 ) ) 510. 510*515 

510 J=1 

GO TO 530 

515 DO 520 NC=2»NEW 
J=NC 

IFtEVi IE)-PET< J) ) 54u.530.52U 
520 continue 
530 RATY=0.0 
GO TO 550 

540 RATY=(.PET<J)-EVt IE) ) / ( PET ( J ) -PET ( J-1 ) ) 

550 TW8=TWn J)-RATY*l TW I ( J ) - T W I( J-1 ) ) 

DO 610 IJC=1.NJC 
IJ=PJC( IJC)+1.0 
XC=CFJ( IJ) 

IF(XC-PXC( 1 ) ) 560.56U.565 
560 1=1 

Go TO 580 

565 DO 570 NC=2»NXW 
I=NC 

IFlXC-PXC(in 59o,58u.57o 
570 continue 
500 RATX=0.0 
GO TO 600 

590 RATX= (PXC( I )-XC)/l PXO 1 )-PXC) I"! > > 

600 NPX=1+NXW*( J-1 ) 

AX=BnNPX)-RATX*(RUNPX)-BI (NPX-1) ) 

NPX=NPX-NXW 

BX = BI (NPX)-RATX*(BKNPX)-SI (NPX-1 ) ) 

IB=IB+l 

61U BS( IB)=AX-RATY«< AX-BX)+TWS 
620 CONTINUE 
RETURN 


00059740 

00059750 

00059760 

00059770 

00059780 

00059790 

00059800 

00059810 

00059820 

00059830 

00059840 

00059850 

00059860 

00059070 

00059880 

00059890 

00059900 

00059910 

00059920 

00059930 

00059940 

00059950 

00059960 

00059970 

00059980 

00059990 

00060000 

OOOGOOlO 

00060020 

J0060030 

00060040 

00060050 

00060060 

00060070 

00060080 

00060090 

00060100 

00060110 

00060120 

00060130 

00060140 

00060150 

00060160 



ro 

'ji 


tND 

♦DECK PCZCS 

subroutine PCZCS 

C 

C* CALC* local angles OF ATTACK FROM DEFLECTION 

C 

COMMON/OAT/ DA(50UvJ) 


00060170 
00060180 
00060 190 
00060200 
1NP«J I ( Z/C )00060210 
00060220 
00060230 


C 

C 


c 

c 


DIMENSION 

PXC«19> *PEni9) 

♦ PAD 1361) 

*l«l(19) ♦PJC118) 

00060240 

00060250 

EQUIVALENCE 

( DA( 2531 ) »PXC) 

♦ 1DA12551) 

♦PET) ♦1DA12570) ♦PAD) 

00060260 

00060270 

1 

>( DA 12940) » Tm I ) 

♦ IDAl 2507) 

♦PNVC) ♦1DA12512) »PJC) 

OOO 6 O 26 O 

COMMON/ CPP/ 

large 

1 

DPI (8) »NVS»NJC 

DMK7513U) 

,EV(22) .XLV122) 

♦XTLV122 ) 

♦rtPFl 39) 

00060290 

00060300 

00060310 

00060320 

00060330 

2 

♦DP211400) *CFjl2u) 

♦DP313126 

) ♦BS136UI 

)0060340 

3 

♦DM214750) ♦XLP119) 

♦CHDl 19) 

♦ ZI f 24) 

00060350 

4 

♦XII24) ♦X0148) 

♦Z014B ) 

♦Z(48*19) 

00060360 

5 

*PEL120) 



00060370 


C SET FOR CoDIm AnO CuRVE FIT FOR DEFLECTIONS 

LD=0 

NXWsDAI 2530) 

NEW=DA( 2550) 

C SHIFT TO LCM FOR WINGD 

DO 10 I=1*NEW 
10 PEL< I )=PET (I) 

C 

CALL WINGD I NEW ♦ PEL *XLP *CHO » WPE ) 

0XI=,5#( l.-COS( 1.5 70a/PNVC) ) 

00 100 IE=1*NEW 
DO 20 IX=l»NXW 
LD=LD+1 

ZI ( IX ) = PA0<L0)*CHD( IE) 

20 XI I IX >=PXC( IX) 

IC=0 

DO 40 1JC=1»NJC 
IC=lC+2 

I J=PJC( IjC)+l*u 
XOUC-1 )=CFJ( IJ)-DXI 
40 ,X0( IC) = CFJ< IJJ+DXI 


00060380 

00080390 

00060400 

00060410 

00060420 

00060430 

00060440 

OOO 6 O 45 O 

UOO 6 O 46 O 

00060470 

OOO 6 O 48 O 

00060490 

OOO 6 O 5 OO 

OOO 6 O 5 IO 

00060520 

00060530 

00060540 

00060550 

00060560 

00060570 

00060580 

00060590 



n n n 


ro 

-j 

CJN 


call codim (XI .Z.I ♦NXW»X0»^10» IC) 

DO 60 IX=1»IC 
6ij /:( ix» iE)=z;o< IX) 
loo CONTINUF 

C LINEAR iNFEKPOLArE FOK /i SHAN^li,E AND CALC SLOPE 

KK=0 

DXr=DXl+DXl 
DO 2UO IE=1*NVS 
DX=DXT*XTLV( IE) 

IF(EV( IE).GT*PET(1) ) GO fO 120 
11 = 1 

GO TO lAO 

12U DO 130 lS=2fNEw 
II = IS 

IFlEVi IE)-PEn IS) ) 130*140*130 

130 CONTINUE 
140 RATY=0.0 
GO TO 160 

150 RATY= (PET( I I )-EV( IE) ) / (PEK 1 I )-PET( II-l ) ) 

160 TWB=TWKII )-RAT fWl(II)-TWl(II-l)) 

ic=o 

DO 170 IJC=1*NJC 
IC=IC+1 

7*1 = 4( IC* I I )-RATY#(Z( IC* II )-2( IC*I 1-1) > 

IC=IC+1 

22 = 2 ( IC» I I )-RATY*( 2 ( IC*in-2(IC*Il-l)) 

KK=KK-*-l 

170 8S(KK)=<2l-22)/DX+TW8 
200 CONTINUE 
RETURN 
END 

*DECK SOLU 

subroutine SOLD 

* SOLVE LINEAR SlMULlANEOUb EUUA'IONi IAa=B) 


COMMON/DAT/ 0A(50oO) 

C 

COMMON/CRG/ P I *P 14 *RC*BETA 

COMMON/ CFG/ I DB ♦ I DF ♦ lOw * 1 DP ♦ I0N«NQ8 *NQF *N(JR *NUP » NUN 
1 ♦NKB*NKF*NICW»NK.P *NKN 

C 

large B(IOOU) »DM1 ( 90812 ) *A( lOoO) *AR(590) 


00060600 

00060610 

00060620 

00060630 

00060640 

)006065o 

00060660 

00060670 

00060680 

00060690 

00060700 

00060710 

00060720 

00060730 

00060740 

00060750 

00060760 

00060770 

00060780 

00060790 

00060800 

00060810 

00060820 

00060830 

00060840 

00060850 

00060860 

00060870 

00060880 

00060890 

00060900 

0006091Q 

U0060920’ 

U0060930 

00060940 

00060950 

00060960 

00060970 

00060980 

00060990 

00061000 

00061010 

00061020 



o n 


c 

c 

L=NKN 

M*NaB+NQF+NQW+NOP 

N»N»CB+NKF+NKW+NKP 

N0T=M>L 

NKT=N+L 

if(l*ne*o) go to lU 
c* NO nacelle 

call M30L (N*M»12J 
GO TO 30 

lU !F<N*NE.0) go to 20 
C* NACELLE ONLY 

CALL MSOL (L»L*10) 

GO TO 30 

C* WITH NACELLE 

20 CALL PARTM (L*M*N) 

C* PRINT LEAbT 50UARE MATRIX-8 

30 IFtDAt 12)*E0.0*0) GO TO 110 
L1=N+1 

DO 50 K=1»NQT 
A(K>*0*0 

IF(N.NE.O> READ (12) <AK(n*I = l*N) 
IF(L*NE.0) read (10) (AR( I) ♦I = L1*NK.TI 
DO 50 I=1»NKT 
50 A(K)*A1|0+B( n«AR( I ) 

C 

IF(L*NE.0) REWIND 10 

if(n*ne.q) rewind 12 


WRITE (6tlOO) (A(K) »K=1 »N0T) 
lUU FORMAT (26H1 LEAST SQUARE MATHIX-B/(1H IUFIO.5)) 

* COMPRESS. EFFECT ON COEFFICIENTS 

110 1F(BETA.E0.1. ) GO TO lAO 
00 120 I=1*NKT 
12 u B( n=6( n/BETA 
C 

140 RETURN 
END 

»DECK MSOL 

subroutine MSOL (NKX»NQX»MT) 


00061030 

00061040 

00061050 

00061060 

00061070 

00061080 

00061090 

00061100 

00061110 

00061120 

00061130 

00061140 

00061150 

00061160 

00061170 

00061180 

00061190 

00061200 

00061210 

00061220 

00061230 

00061240 

00061250 

00061260 

00061270 

00061280 

00061290 

00061300 

00061310 

00061320 

00061330 

00061340 

)0061350 

00061360 

00061370 

00061380 

00061390 

00061400 

00061410 

00061420 

00061430 

00061440 

00061450 



on n n n n n 


ro 

oo 


* 


bOLVES AX=B FOR X* GIVEN A ANO B 


COMMON/DAT/ OAlSUOU) 

DIMENblON WJCd) *PJC(1) 


equivalence ( DA( 1A) *w^JC) ♦ (0A( 1277) »»»-NJC) » a)A< 1660 > »WJC ) 

1 ♦ ( UAl 2510) ♦PbJC ) ♦(OAt251U »PNJC1 ♦(OA(2512) »PJC) 


COMMON/CFG/ I DB * I DF » I D« ♦ I DP » I ON •NUB ♦NQF »NQW » NQP » NON 
large BdOUU) ♦DM1(90812) 

large AdU1975) *ARl591) ♦IXC(450) ♦IlU5o) 


NJC=WNJC 
NJCP=PNJC 
NKTP=NKX+l 
N= (NKX»( NKX+3 ) ) /2 
DO iO I=1»N , 

10 A( I) =0.0 
NKT2=NKX+2 
NK1=NQB+NQF+1 
NIC2=N<l+NQW 
NK3=NK2+NQP 
JC=p 
JCP=0 

DO 60 K=1.NQX 

READ (MT) t AR<L) »L=1»NKX) 

IF< lOW.EQ.O ) GO TO 32 
IF(K.LT.NK1 ) GO TO 32 
IF(K.GE.NK2) GO TO 32 
1F( JC.GE.NJC) JC=0 
JC=JC+1 

IF< WSjC.GT.WJCt JO ) GO To 60 
GO TO 36 

32 IF( IDP.EU.O) GO TO 36 
IF(IC..LT.NK.2 ) GO TO 36 
IF<<.GE.NX3 ) GO TO 36 
IF( JCP.GE.N JCP) JCP=0 
JCP=JCP+1 

IFlPbJC.GT.PJCUCP) ) GO ro 60 
36 AR(NKX+1»=B(IC) 

1X1 = 1 


00061A60 
00061470 
00061480 
00061490 
00061600 
00061610 
00061620 
00061630 
000616A0 
00061650 
0006 1560 
00061670 
00061680 
00061590 
00061600 
00061610 
00061620 
00061630 
00061640 
00061650 
>0061660 
00061670 
00061680 
00061690 
00061700 
00061710 
00061720 
00061730 
00061740 
00061750 
00061760 
00061770 
00061780 
00061790 
00061800 
00061810 
00061820 
00061830 
00061840 
00061850 
00061860 
00061870 
00061880 



279 


^0 

50 

60 


80 


170 


180 

200 

210 

220 


♦DECK 


DO 50 I = 1«NK.X 

R = 5QRT(A( IX I l»#2+AR< I )** 2 ) 

IFtR.EQ.O.UJ GO TO 5u 

C«At ixn/R 

S*AR(I)/R 

IXJ*IXI 

DO AO J=I»NKTP 
T2=C*AJ lXJ)-fS*AR{ J) 

ARC J)=-S*At IXJ)+C*AR( J» 

AUXJ)=T2 
IXJ= IXJ+1 
IXI*IXI+NKT2-I 

continue 
rewind MT 
n=i 

1X1*1 

DO 80 I=1*NKX 
I xc n » = I X I 
B( n=u.o 
iL<n=o 

IFCAUXn .LE.O.OUOOOOl) GO TO 80 

iLc n = ii 

11 = 11+1 

IXI=IXI+NKT2-I 
I I=NKX 

00 210 J=1*NKX 

!FUL( I n .LE.O) GO TO 210 

JI=IL(II) 

js=ixc(jn“Ji 

JXI=JS+II 

JXN=JS+Niap 

IF(II~NKX) 17a.200»220 

IK=II+1 

JXK=JX1 

DO 180 K=IK*NKX 
JXK=JXK+1 

BUn=B< I n-A< JXK)+B(K) 

B( in = CBt I n+AC JXN) )/A< JXI ) 
11 = 11-1 
CONTINUE 
RETURN 
END 
M50LP 


00061890 

00061900 

00061910 

00061920 

00061930 

00061940 

00061950 

00061960 

10061970 

00061980 

00061990 

00062000 

00062010 

00062020 

00062030 

00062040 

00062050 

00062060 

00062070 

00062000 

00062090 

00062100 

00062110 

00062120 

00062130 

00062140 

00062150 

00062160 

00062170 

00062180 

00062190 

00062200 

00062210 

00062220 

00062230 

00062240 

00062250 

00062260 

00062270 

00062260 

00062290 

00062300 

00062310 



u u 


subroutine MS0LP(NKT»N0I »NC8»M) 

c 

c» householder method for SOLv/TnG set of linear 

c* simultaneous equations 

c 

large BUUOO) »DM1190812) 

LARGE Adui975) tAK<591) ♦KRR(450J ♦lUASU) 


Nl=NCa-l 

KR=0 

NKTP=NKT+NCB 
DO 10 J=1»NKT 
^;RRI J)*KR+J-1 
<R=KRR( J) 

DO lU K=J*NKTP 
LL = < J“1 ) *NKTP+K-KRH( J ) 
lu A ( LL) =U.U 

DO 6U K=1>NQT 

read <ioj I ar< n » di ^ nk t ) 

<R=NKT+1 

LL=NKT+N1 

READ (12) ( AR ( I ) t I =KR * LL ) 
g> AR(NKT+NCB) = B(M+<) 

C • , 

30 00 50 I=1*NKT 

LL = ( I“1)*NKTP + I-KRR( 1 ) 
K=SQRT(A(LL)**2>AKi I)**2) 
IF(R .EQ. 0,0) GO TO 5u 
C=A(LU/R 
, S = AR{ I) / R 
DO 40 J=I*NKTP 
LL=U-1 )*NKTP+J-KHK( I ) 
T2=C*A(LL)+S*AR(J) 

ARC J) =-S*A(LU-»-C*AH{ J J 
40 AtLL)=T2 

50 continue 
60 continue 

REWIND 10 
REWIND 12 

n * 1 

DO 80 I=1*NKT 

LL = ( r-1 >*NKTP+I-KRK( I ) 


00062320 

00062330 

00062340 

00062360 

00062360 

00062370 

00062300 

00062390 

00062400 

00062410 

00062420 

00062430 

00062440 

00062450 

00062460 

00062470 

00062480 

00062490 

00062500 

00062510 

00062520 

00062530 

00062540 

00062550 

00062560 

00062570 

00062580 

00062590 

00062600 

00062610 

00062620 

00062630 

00062640 

00062650 

00062660 

>0062670 

00062680 

00062690 

00062700 

U0062710 

00062720 

00062730 

00062740 



no non 


rv) 

CO 


IF -O.OOUoUUl ) 7v^*92 »92 

92 CONTINUE 

!L(I ) = II 
I r = II + 1 
GO To 80 
70 IlU ) * O 

80 continue 

00 250 J=1*NCB 
NKTJ=NKT+J 
00 90 I*1*NKT 
90 AR{ I )=0,0 
II=N<T 

DO 210 l=l*NKT 

IFIILI I I > .LE. 0) GO TO 210 

ji = iL( m 

LX=( JI-U#N<TP+NKTJ-KRR( JU 
LM = UI-1 )*NKTP+I I-KRR ( JI) 

IF( I I - NKT ) 17u, 2ou* 22o 
17U IK = II + 1 

DO 180 K=IK*NKT 
LL=Ulrl)*NKTP+K-KRR< Jl ) 

180 AR{ I n=AR( I I)-AILL>*AR(K) 

2o0 AR( I n = l AR( I I )+A(LXn/A(LMJ 
2lu I I = I I - 1 
22u CONTINUE 

WRITE (16) (AR( I ) ♦I=1*NKT ) 

250 CONTINUE 
REwInO 16 
RETURN 
END 

♦DECK PARTM 

SUBROUTINE PARTM(L»M*N) 

* PART I SI ON-HOUSEHOLDER MATRIX SOLUTION 

large B(1000) ♦DMK9U812) 

LARGE A(38835) »SAVE(1A0*451) ♦AR(591) *All(450> 

SUE OF SAVE=(L*N + 1 ) 

NCB=N + 1 
00 10 1=1 *M 
READ (10) 
lu READ ( 12 ) 


♦ IL(450) 


00062750 

00062760 

00062770 

00062780 

00062790 

00062800 

00062810 

00062820 

00062830 

000628A0 

00062850 

00062860 

00062870 

00062880 

00062890 

00062900 

00062910 

00062920 

00062930 

000629A0 

00062950 

00062960 

'J006297(j 

10062980 

00062990 

00063000 

00063010 

00063020 

00063030 

00063040 

00063050 

00063060 

00063070 

00063080 

00063090 

00063100 

00063110 

00063120 

00063130 

00063140 

00063150 

00063160 

00063170 



no non 


call M6ULP (L»L»NCB».M) 

DO 20 1=1. NC8 

2u READ tl6) (SAVE< J. I ) » J = 1 .U 
REWIND 16 
DO 7 d I=1»M 

READ (10) ( AIKLU »LL = 1.L) 

DO 50 J*1.NCB 
AR( J)=J,0 
00 40 K=1»L 

40 ARU)=AK(J)+A11(K)*SAVE(K.J) 

. 50 CONTINUE 

HEAD ( 12) I All(LL) »LL=1.N) 

DO 60 0= 1 . N 

60 All ( J )=AR( J)-Ali ( J) 

WRITE ( 11) (AIK J) .J=1,N) 

70 B( I )=AR( N+1 )-B( I ) 

REWIND 10 
REWIND 11 
REWIND 12 

CALL MSOL <N*M»11) 

DO 80 1=1 »NCB 

80 READ (16) (SAVE ( J. I ) . J=1.L) 

^ REWIND 16 

® DO 100 K=1»L 

K<=N+K 
TEMP=0*0 
DO 90 J=1.N 

90 TEMP=TEMP+B( J)*SAVE(K»J) 

100 3(KK)=SAVE( K.NCBJ-TEMP 
RETURN 
END 

♦DECK PLCAL 

SUBROUTINE PLCAL 

CALC PRESSURE COEFFICIENTS AND INTEGRATED LOADS 
COMMON/CFG/ IDB ♦ IDF . 1D« ♦ I DP 
INITIAL 

BCL=0.0 
BCD=0.0 
BCM=0.0 
FCL=U,0 


00063180 
00063190 
00063200 
00063210 
00063220 
00063230 
00063240 
00063250 
00063260 
00063270 
'J 0063280 
10063290 
00063300 
00063310 
00063320 
00063330 
00063340 
00063350 
00063360 
00063370 
00063380 
00063390 
0.0063400 
00063410 
00063420 
00063430 
00063440 
00063450 
00063460 
00063470 
00063480 
00063490 
00063500 
00063510 
00063520 
00063530 
00063540 
00063550 
00063560 
00063570 
00063580 
00063590 
0006360U 



A n 


ro 

03 

uo 


c 


c 


c 


c 


c 


c 


c 


FCD=0,U 

FCM=0,U 

WCL=U*U 

»i/CD=y*U 

WCM=0«U 

PCL=0,0 

PCD=0*U 

PCM*0,0 

fuselage 

IF< 1DB.EO*0) 60 TO lU 
CALL 8VRCP 

CALL BLOAU I BCL »BCD*3CM > 

FANPOD 

10 IF( IDF.EQ.O > GO TO 20 
CALL FVRCP 

CALL FLOAL) (FCHFCUtFCM) 

W I N G 

20 IFdOW.EO.O) GO TO 30 
CALL WDPU 
CALL WVAP 

CALL WLOAO ( WCL * WCO » WCM ) 

PYLON 

30 IF(IDP.EQ.O) GO TO 40 
CALL POPQ 
CALL PVAP 

CALL PLOAD <PCL»PCU»PCM) 

SUM and print 
40 tcl=bcl+fcl+wcl+pcl 

TCD=8CD+FCD+WCD+PCD 

tcm=bcm+fcm+wcm+pcm 

txc=-tcm/tcl 

WRITE (6*50) TCL* rCO*TCM»TXC 

SO FORMAT I IHl ♦20X.36H ** TOTAL CONFIGURATION PARAMETERS «/lH0*4UX» 
1 »2HCL» 13X»2HCD*13X*2HCM»13X»3HX/C/1H ♦30X*4FlS,Si 

IFdOW.EO.O) GO TO 70 
call IDRAG (BCL»FCL»C 0I ) 

WRITE (6,60) CDI 

60 FORMAT (lHO»20XtZ8H ** INDUCED DRAG =*1F10«5) 

REWIND I/O 

70 IF( ID 8.NE.0) REWIND 19 


00063610 

00063620 

00063630 

00063640 

00063650 

00063660 

00063670 

000636BO 

00063690 

00063700 

00063710 

00063720 

00063730 

00063740 

00063750 

00063760 

00063770 

00063780 

00063790 

00063800 

00063810 

00063820 

00063830 

00063840 

00063850 

00063860 

00063870 

00063880 

00063890 

00063900 

00063910 

00063920 

00063930 

00063940 

00063950 

00063960 

00063970 

00063980 

>0063990 

00064000 

00064010 

00064020 

00064030 



n n n. n n n o n n 


IF( IDF.NE.U) rewind 20 
IF ( IDW.NE.O J REWIND 21 
IFlIDP.NE.u) REWIND 22 
C 

return 

END 

♦ DECK. eVRCP 

SUBROUTINE BVRCP 

* CALC* VElOCIIY RAllO AND PRESSURE COEFFICIENT AT 

* control poinTo on the fuselage and print 

COMMON/DAT/ DAI500U) 

DIMENSION FJX I 1 ) *FVX( 1 I 

equivalence t DA( 2) *k»SPAN) » ( DA ( 4 > « XMACH ) » ( DA U 2 ^>7 I » »y I T B ) 

1 *(DA(4ul5) tFOX) ♦ iDAI473M »Fva» » I DA ( 49u5 > »F JX ) 

COMMON/CRG/ P I »P 14 » KC » BE T A 

COMMON/ CFG/ I OB » I DF , I Dkv * 1 UP * iUN»NuBtNUF »NUw tNuP »NUN 
1 ,NKB»NKF ,NAa'»NKP»NKN 

COMMON/ CPB/ NVX ♦NVXM*NV Y »NDV »NV8 »NV8P »NF»NJX» IFBE »S INA»C0SA 
COMMON/CPW/ DWl 17) »NE5»NTB»NU 


COMMON/ CFK./ 

NDAtNUT *THEF*blNTF»SlNlF2»C0STF*THEK,»SlNTlC»i. INIK2 

LARGE 

CKV ( 1000) 

*DM1 ( 2000) 

» 

♦XQ(650) 

♦Y0i65u) *20(650) 

1 

*TMX(650) 

♦IMY(650) »TMZ(65u) 

2 

.TTX(650) 

,TTY(65u) *TT2(650) 

3 

.XNI650) 

*YN(650) *2n(65o) 

4 

♦PM( 150*25 

) *DB1 ( 13450) *FAN ( 23700 ) *EV ( 52 ) *DM2( 944 ) 

5 

iWPr (6U) 

♦DM3( 22374) *PYL(6061 1 *CEL(3700) 

6 

*XF( 51* 10) 

♦DM4(561) 

7 

*AX 1 250) 

*A>'(25UJ «A2(250) 

8 

»CK<650) 

*CP(650) *XL(650) *VMV(650J *VTV(650) 

9 

♦ETAt2) 

*PLM(51*25) 


* START 

* CALC* XKV IF WING-BODY 
IF<IDW.E0*0) GO TO 3u 
wP2=2*»WSPAN*PI*B£TA 

I=NE5+3 

XF u »NU r +1 )=0*U 


00064040 

U0064050 

00064060 

00064070 

00064080 

00064090 

00064100 

00064110 

00064120 

00064130 

00064140 

00064150 

00064160 

00064170 

00064180 

00064190 

U0064200 

00064210 

UU064220 

00064230 

00064240 

00064250 

00064260 

00064270 

00064280 

00064290 

J0064300 

00064310 

00064320 

00064330' 

00064340 

00064350 

00064360 

00064370 

00064380 

00064390 

00054400 

00064410 

00064420 

00064430 

00064440 

00064450 

00064460 



CALL i>FC { I *EV \ 

X<V-WP2»UF ntl)-xF{I»2 ) /2*+XF ( I ♦IMUT + 1 l*i>rN FF + XF ( I INTK ) 

CALC CQMKiburiOiH fO FLOW FkUM ADJACENT vORiICE^j 

30 NC=0 

DO 36 lY=i»NVY 
DU 36 lJ=i»NJX 
J=FJX(JJ) 

K = J + 1 

1F( J,EO.NVXM> K. = J 

NC=NC+i 

KC=(IY-1)*NF 

VMVlNC)=0.o 

DO 35 I=1»NF 

KC=XC+1 

35 VMVlNCy=CK.V (KC)*(PM( J»I )+PM<K.»I ) >+VMV(NC) 

36 VMV<NO = VMV(NC)/4. 

IX = 1 

DO 4u IJ=1»NJX 
jx=Fjxnj» 

37 IX=IX+1 

IF(IX.GE.JX) GO TO 38 
READ (23) 

GO TO 37 

38 READ (23) ( (PLM( J ♦ 1 ) ♦ J=1 »NYY )»I=1»NF) 

NC = IJ 

KC = 0 

DO Au J=1 »NVY 
CK(NC)=O.Q 
DO 39 1=1 •NF 
KC=KC+1 

39 CK INC) =CKV( KC )^^PLM IJ» I )+CK.( NO 

40 NC=NC+NJX 
REWIND 23 

DO 50 I=1*NJX 
50 XL( I )=YQ( I )+YQ( I ) 

N1=NJX 

DO 53 J=2*NVY 
DO 53 1=1»NJX 

N1=N1+1 

N2=N1-NJX 

53 XL( N1 ) sSQRT ( ( XQ ( N2 ) -XQ ( N 1 ) ) »*2+ ( Y0( N2 ) -Y0( N1 ) ) **2 + ( ^0 ( N2 > -^O I N 1 ) ) 
1 **Z ) 

NC = 0 


00064470 
(J0064A80 
0OU64A90 
00064500 
U00645 io 
00064520 
00064530 
00064540 
00064550 
00064560 
00064570 
00064580 
00064590 
00064600 
;0064610 
00064620 
00064630 
00064640 
00064650 
00064660 
00064670 
00064680 
00064690 
00064700 
00064710 
00064720 
0006473Q 
00064740 
00064750 
00064760 
00064770 
00064780 
00064790 
00064300 
00064810 
00064820 
00064830 
00064840 
00064850 
00064860 
00064870 
00064880 
00064890 



ON 


I rW=WITB 
wLF-=rtPT ( 2) 
wTE=WPT ( 3 1 
DO &7 J=UMVY 
t)b DO 57 I=1»NJX 
jNC=NC+ 1 
N1=NC-NJX 
IF(J.EQ*1) N1=NC 
N2=NC+NJX 
IFtJ.tU.NVV) N2=NC 
Cl=.25 
C2=.25 
XK1=0* 

XK2=0. 


IF 

IIDW.EO.O) GO 

TO 

57 

JX 

= FJX( I ) 



XX 

=FVX(JX )+FOX 



IF 

(XX.LT.WLE) GO 

TO 

57 

JW 

=J-ITW 



TF 

(XX.GE.wTE) GO 

TO 

56 


!F.(JW,EQ.-n C 2 = 0.u 
iF(jw.ea.u) ci=u,o 

60 TO 57 

56 IFlJW.EQ.-i) XK2=XXV 
IFIJW.EQ.O) XKl = XKv/ 

57 V'lV(NCl=Cl*<CK<NC).~CKlNl )+XK11 / XL(NC)+C2*<0K(N2)-CKlNC)+XX2> 

1 /XL(N2) 

C 

C* 

58 


CALC. v/LLOCiTY KATIO ANU CP 
DO 6U J=1 *NQB 

READ( 19) I AX( 15) »AY( Icj) »AA( li.) »Io=l»NXB) 

V rv< j ) = v rv ( j> + i I IX < j) ♦ co5A*bet a-^t ta( j) *o1) a) 

VMV i J ) =VMVi J) +l TMX i J ) *C05A*BE) A+TM2( J ) *5 I NA ) 

DO 60 1=1.NKB 

VTV( J)=^( TTX{ JJ*AX< I) + TTY(J)*AY( D + TTZi J)*AA< I ) )»CK.V< n+VTV( J) 
VMV( J ) = ( ? MX( J ) *AX( I)+ IMY t J ) *AY ( I ) + )MZ U ) »AZ ( I) ) »CXV I 1) +VMV I J ) 
IF( IDF.EQ.O) 60 TO 62 
DO 61 J=1,N08 

READC20) { AX ( 1 5 ) ♦ A Y ( I 5 ) »AZ ( I 5) » l5= 1 *NKF ) 

II=NK.O 

DO 61 l = l»XiK.F 
11=11+1 

V fVi J) = l nx( J)»^AXl 1 ) + TT Y( J)«AYU )+TTZ( J)+AZ ( I ) )»CXV< II ) + VTV< J) 


0U06A90U 

00064910 

jOQ64920 

00064930 

00064940 

00064950 

0008496iJ 

00064970 

00064980 

00064990 

UQ065000 

00065010 

00065020 

00065030 

00065040 

00065050 

00065060 

U0065070 

00065080 

00065090 

00065100 

00065110 

00065120 

UU065130 

00065140 

00065150 

00065160 

00065170 

00065180 

00065190 

OU065200 

00065210 

00065220 

00065230 

00065240 

UOO65?50 

00065260 

00065270 

00065280 

00065290 

00065300 

J0065310 

00065320 



61 VMVl J) = t TMX( J)*AXt I J + TmV( JJ«AY( n+TM^U>*A^t I ) )»CICV( I D+VMVlJ) 

62 IFUDW.EQ.U) GO TO 65 
DO 64 J»1*NQ8 

READ121) <AX( I6> *AYUo) *A4< Ii>) » 16 = 1 tNKW ) *UV * VV . WV 

IF(0A(2000).EQ.U,0) GO TO 63 

U8=UV*B£TA 

VTV(OJ=TTX( J)*U8+TTY( J)*VV+TT2( J)*wV+VTV( J) 

VMV< Jl = TMX( Jl-»UB+TMYIJ)»VV-fTM2(J)»i«V+VMV( J) 

63 II=NK8+NKF 

DO 64 I=1*NKW 
H = II + 1 

VTV( J) = ( TTX( J»*AX( r )4-TTY( J)*AY( n+TTZ< J)*A2( I ) )»C<V( I I »-^VTV( J) 

64 VMV( J) = ( TMXt J)«AX( I ) + TMY(J)*AY( I ) +TMZ < J ) *AZ U ) )*CK;V( I I )>VMV( J) 

65 IFUOP.EO.O) GO TO 72 
DO 70 J=l»NOB 

READ <221 ( AX( r6| ♦AYU6) »AZ{ 16) *I6»X»NK.P) *UV.VV»WV 

IF(DA( 3000) .EQ.O.O) GO TO 66 

U8=UV*BETA 

VTV( J)=TTX( J) »UB+TTYI J)*VV+TTZ( J)*WV+VTV( J) 

VMV( J)=TMX( J)*U8+TMY( J)*VV+TMZ { J ) *wV+VMV( J ) 

66 II=NXB+NKF+NKW 
DO 70 I=1»NKP 
U = II+1 

VTVU) = <TTX( J)*AX( I )4-TTY(J)*AY{ I )+TTZ( J1 AZU ) )*CXV( I I )+VTV( J) 
70 VMV< J)*( TMX< J)*AX( I ) + TMY{ J)*AY( I )+TMZ( J) AZ ( I ) )*CKV( I I ) + VMV( J) 
72 IF(I0N«£Q*0) go TO 8u 
DO 74 J=1.NQB 

READ (9) (AXnS) »AYl IS) *AZ( IS) .I6=1»NICN) 

II =NKB+NXF+NKW+NKP 
DO 74 I=lfNKN 
n = ii+i 

VTV( J) = ( TTXt J)*AXi I ) + TTY( J)*AY( I) +TTZ ( J )*AZ ( I) ) #CKV ( I I )+VTV( J) 
74 VMV( J ) = { TMX( J)*AX< I )+TMY( J)*AY( I ) +TMZ ( J ) *AZ I I ) )*CK,V( I I )+VMV( J ) 

80 DO 89 J=1#NQB 

IF(XMACH.LE*0.O) GO TO 88 

VTV< J)aVTV( J)/SQRTi ( TTX ( J )*BET A ) **2+T TY ( J ) ^H^2'fTTZ( J ) **2 ) 

VMV( J)=VMV ( J) /3QRT< ( TMX ( J ) *BET A ) **2+TMY ( J ) *»2+TmZ (: J )**2 ) 

XMS=XMACH**2 

XMl»l.42857/XMS 

CMN=l*+0.2*XMS*i l.-VTVU)»*2-VMV( J)**2 ) 

IFtCMN.GT.O.O) GO TO 87 


00065330 

00065340 

00065350 

00065360 

00065370 

00065380 

00065390 

00065400 

00065410 

00065420 

00065430 

00065440 

00065450 

00065460 

00065470 

00065480 

00065490 

00065500 

00065510 

00065520 

00065530 

00065540 

00065550 

00065560 

00065570 

00065580 

00065590 

00065600 

00065610 

J0065620 

00065630 

00065.640 

00065650 

00065660 

00065670 

00065680 

00065690 

00065700 

00065710 

00065720 

00065730 

00065740 

00065750 



n n n 


ro 

00 


ijUBbONIC INTERFERENCE PRESSURE PROGRAM ** 
NO. *7x.2HXQ» 10X.2HYQ*10X»2HZQ*8X*6HVT/VFS 


CPU»=-XM1 
GO To 89 

87 CP(J>=XM1*(CMN**3.&“1.) 

GO TO 89 

88 CP(J)«1.-VTV( J)»#2-VMV( J)*»2 

89 CONTINUE 

C* PRINT OUTPUT 

NC=0 

00 110 J=1»NVY 
WRITE (6*90) 

90 FORMAT (1H1»20X»65H ** 

IFUSElAGE OUTPUT **/6HU 
2 »6X»6HVM/VFi>.8X *2HCP/ ) 

00 110 I=1»NJX 
NC=NC+l 

ZP=2Q(NC)/B£TA 

YP*Y0(NC»/BETA 

WRITE (6*100) I *XQ(NC) *YP*ZP*VTV(NC) »VMV(NC) *CP(NC) 
100 FORMAT (IH *I5.6F12.5) 

llQ continue 
RETURN 
END 

♦DECK BLOAO 

iUBROUTlNC BLOAD { FCL *CDF,FCM ) 

* CALCULATE Fu6ElAGE LOCAL INTEGRATED LOADS 

COMMON/ DAT/ DA (5000) 


C 


DIMENSION FVX(l) »FJX(1) 
EQUIVALENCE ( 0A( 4005 ) *FCD ) 

1*(DA(1)*AR) >(DA(2) «WSPAN) 

2*(DA(7) *XCG) 


*(DA(4735) *FVX) 
*(DA(3) .XMAC) 


* (DA(4905) *FJX) 
*( DA (4006) *FAA) 


COMMON/CRG/ PI *PI4*RC*BETA 
COMMON/CFG/ lOB * IDF . I DW * I DP * I DN 

COMMON/CPB/ NVX*NVXM*NVY»NDVfNVB*NVBP*NF*NJX.lFBE*SINA*COSA*FAREA 


LARGE 


1 

2 

3 

4 


BOU( 3000) 
*DM1 ( 9750) 
*CP(650) 
*FX( 71) 
*CDWA( 71 ) 


»XQ(650) *YQ(650) *ZQ(650) 

*AXY(65U) *AYZ(650) »DM2 < 68891 ) »DM3 ( 2471 ) 

*FDX(150) *CLW(150) »CDWil50) »CMX(150) 

*CLwA(71) »CMXA(71) *CMZ(150) *CMZA(71) 


00065760 

00065770 

00065780 

00065790 

00065800 

00065810 

00065620 

00065830 

00065840 

00065850 

00065860 

00065870 

00065880 

00065890 

00065900 

00065910 

00065920 

>0065930 

00065940 

00065950 

00065960 

00065970 

00065980 

00065990 

00066000 

00066010 

00066020 

00066030 

00066040 

00066050 

00066060 

00066070 

00066080 

00066090 

00066100 

00066110 

00066120 

00066130 

00066140 

00066150 

00066160 

00066170 

00066180 



n n 


START 

* CALC C(L)*W/W(AVG) AT DOWNWASH X STATION 

IY = 1 

00 AO 1=1*NJX 
JX=FjX(n 

DXaPVXI JX+1 )-FVX( JX) 

FOX( 1 )=(FVX( JX)+FVX( JX+U )/2, 

IX=I 

CLWl I )=0*0 
CMX(I)=0.0 

CMZ( n=u*o 
CDwt n»o*o 

DO 30 J=l*NVY 

CLWn )=CPUX}»( AXY( lY )*COSA +AYZUY)*SINA )+CLW(I) 
CMX( I )=CPUX)*(XQ( IX)-XCG)*AXYI IY)+CMX( I I 
CMZt I)=CP< IX)*ZQ{ IX)#AYZ( IY»-»-CMZ( 1 I 
CDW( I)=CPnX)*( AXYUY)*SINA -AYZ( I Y ) *COSA )+CDW(I) 
IX=IX+NJX 
30 IY*IY+1 

CAX»FARtA*DX 
CSX= FCO/CAX 
CLWt I J=CLW( I }*CSX 
CMX( I )=s-CMX( n/CAX 
CMZt n=-CMZU )/CAX 
AO COWJ I )=CDW( n*CSX 

C * CALC C*W/WtAVG> AT EQUAL iNfERVAL OF PHI 

DX=PI/70* 

FX<l)=U-0 

SPHI'0,0 

FC02=FC0/2. 

DO 50 1=2*70 
SPHI=SPHI+OX 

50 FXm*FCD2»(l.-COS(SPHm 

CALL CODIM (FDX.CLW,NJX*FX*CLWA*70» 

CALL CODIM <FDX*CMX*NJX.FX*CMXA*70> 

CALL COOIM <FDX*CMZ*NJX*FX*CM2A*70> 

CALL COOlM (FOX*CDW»NJX*FX*CDWA*70) 

SPHI=0,0 

DO 52 1=2*70 

FX( n = FX( I ) / PCD 

SPHI=SPHI+0X 

HSP=SIN(SPHI )/2* 

CLW( I »=HSP*CLWA( I ) 


00066190 

00066200 

00066210 

00066220 

00066230 

100662A0 

00066250 

00066260 

00066270 

00066280 

00066290 

00066300 

00066310 

00066320 

00066330 

000663A0 

00066350 

00066360 

00066370 

00066380 

00066390 

00066A00 

00066A10 

00066A20 

00066A30 

00066440 

00066450 

00066460 

00066470 

00066480 

00066490 

00066500 

00066510 

00066520 

00066530 

00066540 

00066550 

00066560 

00066570 

00066580 

00066590 

00066600 

00066610 



o 


> 


52 


C* 


6U 


ro 

VO 

o 


70 


80 


C* 


CMXl I >=HSP«CMXA( I ) 

00066620 

CMZl I )*HSP*CMZA( 1) 

00066630 

CDWl I )=HSP«CDWA( I ) 

00066640 

SIMPSON rule integration 

00066650 

SL1=CLW<70) 

00066660 

SL2=0.0 

00066670 

XM1»CMX( 70) 

00066680 

XM2*0*0 

00066690 

ZM1«CMZ(70) 

00066700 

ZM2*0 • 0 

00066710 

SD1*CDW(70> 

00066720 

SD2=0*0 

00066730 

DO 60 1=2»69.2 

00066740 

SL1= CLWl I >+SLl 

00066750 

SL2= CLW1I+1)+SL2 

00066760 

XM1» CMXl n+XMl 

00066770 

XM2= CMXl I + D+XM2 

00066780 

ZMl- CMZt n+ZMl 

00066790 

ZM2* CMZl I + D+ZM2 

00066800 

SOl» CDWl I )+SOl 

00066810 

S02» CDWl I + D+S02 

00066820 

OX3=OX/3. 

00066830 

IOT=IOF+IOW+IDP+IDN 

00066840 

IFl I0T*NE*0) GO TO 70 

00066850 

SR»1« 

00066860 

CR=1. 

00066870 

GO TO 80 

00066880 

SR»FAREA#AR/WSPAN**2 

00066890 

cr*fcd/xmac 

00066900 

FCMXY=DX3»14**XM1+2**XM2)#SR*CR 

00066910 

FCL=DX3*14**SL1+2«*SL2)*SR 

00066920 

FCMYZ=DX3*(4.*ZMI+2.*ZM2)*SR«CR 

00066930 

CDFa0X3*l4**SDl+2**S02)*SR 

10066940 

fcm-fcmxy+fcmyz 

00066950 

PRINT OUTPUT 

00066960 


WRITE 16*100) FAREA.FCL*CDF*FCMXY*FCMYZ*FCM*(FX< I )*CLWA( 

1 ,FX1 1 + 35) .ClWAI 1+35) .CDWAl 1+35 ) • I =2 * 35 ) 

2 .FX136) *CLWA(36) *CDWA(36) 

100 FORMAT (1H1*10X»A5H ** FUSELAGE LOADS ** REF* FUSELAGE AREA=» 

1 F14*5/1H0*10X* 5H» CL=F10,5*5X* 5H# CD=F10.5»3X* 

2 7H« CMXY = F11«5.3X»7H* CMYZ*F1 1 .5 * 5X * 5H* CM»F11*5/ 

3 lH0*12X9lHX»15X*6HCLW/WAtHX»6HC0W/WA*12X*lHX»15X»6HCLW/WA00067O3O 

4 »11X«6HCDW/WA/ 1H0*6F17*5 / 1 IH »6F17*5)) 00067040 


.CDWAl I >00066970 
00066980 
00066990 
00067000 
00067010 
00067020 



291 


return 

END 

*DECK FVRCP 

subroutine FVRCP 
C 

C* CAlC. velocity ratio and PRESSURE COEFFICIENT AT 

C* CONTROL POINTS ON THE FANPOD 

C 

COMMON/ DAT/ DA <5000) 

DIMENSION FjXi 1) *FVX< 1 ) 

equivalence (DA(4) *XMACH) »<DA( 11 ) *FwCI ) ♦<DA(1720) »FJX) 

1 »(DA(2) tMSPAN) ><DAl 1281 ) fUNW) * ( DA (1460 ) «FVX ) 

2 *(DA(87) *FOX» # (DA ( 1203 ) ♦ Wl TO > ♦ < DA ( 12 04 » tW I T I) 

C 

COMMON/CRG/ P I »P 14 *RC *BET A 

COMMON/ CFG/ I DB » I DF • I DW > I DP » I DN * NQB *NOF * NQm > NQP * NQN 
1 *NKBiNXF,NKW»NKPtNKN 

COMMON/CFK/ NOA*NUT»THEF»SINTF,SINTF2»COSTF*THEX*SINTK.SINTK2 
COMMON/CPF/ NVX»NVXM»NVY*NDV*NV8»NVBP»NF,NJX»IFBE»SlNAfC0SA 
COMMON/CPW/ DWU6) »NE3»NE5*NTB»NU»DW2( 5) tNYSOtNySl t IWX 
C 

large CKV(lOOO) ♦DM1(2 oOO) *FUSl2500U) 

* *X0(650) »YQ(650) *20(650) 

1 .TMX(650) »TMY(650) *TMZ(650) 

2 »TTX(650) *TTY(650) .TTZ<650> 

3 *XN(650) *YN(650> *2N(650) 

4 *PM<100*2.5)»DFI( 13400) *EV(52) *DM2(944) 

5 *WPT(60J *DM3( 22374) *PYL(6061) *CEL(3700> 

6 *XF(51»10I »DM4(561) 

7 *AX(250) *AY(250) »A2(250) 

8 *CK(650) *CP(650) *XL(650) *VMV(650) »VTV(650) 

9 »ETA(2> *PLM(51*25) 

C 

C* START 

c* calc, xkv if wing-body 

IF(IDW*EQ.0) GO TO 30 
WP2=2.*WSPAN*PI*BETA 
J=NE3+3 
IaJ + 1 

XF( I*NUT+l)aO.U 
XF( J*NUT+1)=0.0 
CALL SFC U*EV) 

X<I«WP2*(XF( I *1 )-XF( I *2 )/2.+XF( I *NUT+1 )*S InTF+XF ( I *NU)*SINTX) 


00067050 

00067060 

00067070 

00067080 

00067090 

00067100 

00067110 

00067120 

00067130 

00067140 

00067150 

00067160 

00067170 

00067180 

00067190 

00067200 

00067210 

00067220 

00067230 

00067240 

)006725o 

00067260 

00067270 

00067280 

00067290 

000*7300 

00067310 

00067320 

00067330 

00067340 

00067350 

00067360 

00067370 

00067380 

00067390 

00067400 

00067410 

00067420 

00067430 

00067440 

00067450 

00067460 

00067470 



XK0*WP2»(XF< J»1 )-XF( J»2 )/2,+XF( J»NUT+1 )*SInTF+XF( J>NU)#i.INTK) 

CALC contribution TO FLOW FROM ADJACENT VORTICES 

30 NC=0 

DO 36 IY=1*NVY 
DO 36 IJ=1»NJX 
J=FJX(IJ) 

K®J + l 

IF( J.EQ.NVXM) K=J 
NC=NC+1 

KC={ IY-1)*NF+NK8 
VMV(NC)=0*0 
DO 35 I*1»NF 
KC=KC+1 

35 VMV(NC)=CKV(KC)*(PM( J»n + PMtlC» I H+VMVINO 

36 VMV(NC)=VMV(NC)/4* 

IX»1 

DO 40 IJ=1*NJX 
jXsFjXI IJ) 

37 IX=1X+1 

IFUX.GE.JX) GO TO 30 
READ (24) 

GO TO 37 

38 READ (24) ( ( PLM( J ♦ I) ♦ J=1 *NVY )*I=1*NF) 

NC=IJ 

XC=NKS 

DO 40 J=1*NVY 
rK(NC)=0,0 
DO 39 I=1»NF 
KC*KC+1 

39 CK(NC)=CKV(KC)*PLM( J* n+CK(NC» 

40 NC=NC+NJX 
REWIND 24 

49 NC=0 
N1=0 

NCC*NJX«(NVY“1I 
DO 53 J=1*NVY 
DO 53 I=1»NJX 
N1*N1+1 
N2=N1~NJX 

IF(J*EQ*1) N2=N1+NCC 

53 XL( NH=SQRT( ( XQ ( N2 ) -XO ( N1 ) ) **2->- < YQ ( N2 ) “YQ ( N1 ) ) »*2+lZQ(N2 1-ZQ(N1 ) ) 
1 ** 2 ) 

NVYH=NVY/2+l 


0U067A80 

00067490 

00067500 

00067510 

00067520 

00067530 

00067540 

00067550 

>0067560 

00067570 

00067580 

00067590 

00067600 

00067610 

00067620 

00067630 

00067640 

00067650 

00067660 

00067670 

00067680 

00067690 

00067700 

00067710 

00067720 

00067730 

00067740 

00067750 

00067760 

00067770 

00067780 

00067790 

00067600 

00067810 

00067620 

00067630 

00067840 

00067850 

00067860 

00067870 

00067880 

00067890 

00067900 



VO 


DO 57 J*1*NVY 

IF( IDW«EO*0l 60 TO 55 

IF< J.NE*1 ) 60 TO 54 

ITW»WIT0 

WLF*WPT( IWX+4) 

WTEaWPTUWX+5 ) 

XKVsXKO 
GO TO 55 

54 IFt j.NE.NVYH) GO TO 55 
ITW=W1TI 

WLF=WPTt IWX+1 ) 

WTE*WPT( IWX+2) 

XKV=-XXI 

55 DO 57 I»l»NJX 
NC=NC+1 
Nl=NC-NJX 

IF(J*EQ.l) N1=NC+NCC 

N2=NC+NJX 

IF(J.EQ.NVY) N2=I 

Cl*.25 

C2=.25 

xxi«o* 

XK2=0. 

IF(IOW.EQ*0) GO TO 57 
JX»FJX(I) 

XX»FVX( JX)+F0X 
IF(XX*LT*WLE) go TO 57 
JW*J-ITW 

IF(XX#GE*WTE) go to 56 
IF(JW*EQ,~1) C2=0.0 
IF(JW*EQ.O) C1=0,0 
GO TO 57 

56 IF{JW*E0*-1) XK2=XKV 
IF(JW*EQ*0) XKl=X<V 

57 VTV(NC)s>CI«(CKlNC)“CK(Nl)+XKl)/XL<NC)+C2*(CKtN2)-CK(NC) + XK2) 

1 /XL(N2) 

C 

C* CALC, velocity RATIO AND CP 

58 00 60 J»1*NQF 

REA0<20) (AX(TS) .AYrrS) »A2( IS) »IS=1»NKFI 
VTV( J)»VTV( J)+(TTX( J)*C0SA*BETA+TT2( JV*SINA) 

VMV ( J ) *VMV ( J ) + ( TMX Ij ) *C0SA*8ET A+TMZ ( J ) *S I NA ) 

N=NKB 


00067910 

00067920 

00067930 

00067940 

00067950 

00067960 

00067970 

00067980 

00067990 

00068000 

00068010 

00068020 

00066030 

00068040 

00068050 

00068060 

00068070 

00068080 

00068090 

00068100 

00068110 

00068120 

00068130 

00068140 

00068150 

00068160 

00068170 

00068180 

00068190 

00068200 

00068210 

00068220 

00068230 

00068240 

00068250 

10068260 

00068270 

00068280 

00068290 

00068300 

00068310 

00068320 

00068330 



ro 


00 60 I=1«NKF 
N=N + 1 

VTV( J>=( TTX( J)*AX( 1)+TTY<J)»AY( Il+TTi( J)*AZ( I ) ) «CKV < N > +VTV 1 J ) 

60 VMV< J)=( TMX(J»»AX( I )+TmY< J)*AY< I > +TMZ t J » *AZ ( I ) ) *CKV< N ) +VMV ( J ) 
IF(IDB*EQ«0) GO TO 62 

DO 61 J=l*NOF 

READ( 19 > < AX I IS) .ay I IS) »AZ US) » IS = 1 »NKB) 

00 61 Icl.NKB 

VTV< J )s( TTX{ J)»AX( I )+TTY( J)*AY( f) +TT2< J > *AZ ( I) ) *CKV ( I )+VTV( J ) 

61 VMV( J)*(TMX( J)*AX< I I + TmY ( J ) *AY ( I) +TM2 U ) »AZ ( I) ) »CKV ( I )+VMV( J) 

62 IFUDW^EO.O) GO TO 65 
DO 6A J»ltNQF 

REA0(21) ( AXUS) . AY( IS) »AZ( IS) *IS®1.NXW) .rv.W.WV 

IF(DA(2000)*£Q*0.0) GO TO 63 

U8«UV*BETA 

VTVt J) = TTX( J)*UB+TTY( J)»VV+TTZ ( J) *WV+VTV( J) 

VMV { J ) » TMX ( J ) *UB4.TMY I J ) *VV+TMZ ( J > *WV+VMV ( J ) 

63 n=NK8+NKF 

DO 64 Isl.NKW 
11*11+1 

VTV( J)*(TTX< J)*AX( I )+TTY( J)*AY( I)+TTZ<J)*A2( I) )*CKV( II)+VTV( J) 

64 VMV( J) = t TMX(J)*AX( I ) +T mY ( J > *AY ( 1 )+TMZU)*AZi 1 ) )*CKV( I I >+VMV( J) 

65 IFdOP.EQ.O) GO TO 72 
DO 70 J»ltNQF 

READ (22) ( AX( IS) »AY(IS) *AZ( IS) *IS=1.NKP) fUV.VV.WV 

IF(0A(3000)*EQ.0.0) GO TO 66 

UB*UV*BETA 

VTV( J)=TTX< J)*UB+TTY( J)*VV+TTZ( J)*WV+VTV( J) 

VMV ( J ) * TMX ( J ) *UB+TM Y ( J ) *VV+TMZ ( J > *WV+VMV ( J ) 

66 I I»NKB+NKF+NKW 
DO 70 I=1*NKP 
11=11+1 

VTV( J) = (TTX( J)*AX( I )+TTY( J)*AY( I ) +TTZ ( J ) *AZ ( I ) )*CKV1 I I )+VTVlJ) 
70 VMV( J) = ( TmX(J)*AX( I ) + TmY( J)*AY( I )+TMZ( J)*AZ( I ) )*CKV( I I )+VMV( J) 
72 IFUDN.EQ.O) GO TO 80 
DO 74 J=l*NOF 

READ (9) (AXUS) »AY( IS) »AZ( IS) *IS=1.NKN) 

II =NXB+N)CF+NXW+NXP 
00 74 I = 1*NK.N 
!I=II+1 

VTV( J)*(TTX( J)4AX( I)+TTY(J)»AY( I)+TTZ(J)#AZ( I) )*CKV( ri)+VTV(j) 
74 VmV( J )«( TMX( J)*AX( I > + TMY( J)*AY< I ) +TMZ ( J ) *AZ < I ) )»CKV< I I )+VMV ( J) 


00068340 

00068350 

00068360 

00068370 

00068380 

00068390 

00068400 

00068410 

00068420 

00068430 

00068440 

00068450 

00068460 

00068470 

00066460 

00068490 

00068500 

00068510 

00068520 

00068530 

00068540 

00068550 

00068560 

)006857o 

00068580 

00068590 

00068600 

00068610 

00068620 

00068630 

00068640 

00068650 

00068660 

00068670 

00068680 

00068690 

00068700 

00068710 

00068720 

00068730 

00068740 

00068750 

00068760 







c 

80 00 89 J»1*NQF 

IF(XMACH*LE.0.0) GO TO 88 

VTV( J)=VTV( J) /SQRH ( T TX t J ) *0ET A ) **2+T TY ( J ) **2+ T TZ U ) ##2 \ 
VMVt J)=VMV( J)/SQRT( { TMX ( J )*BETA > *»2+TMY C J ) **2+TMZ ( J ) #*2 ) 
XMS=XMACH**2 
XM1»1*42857/XMS 

CMN = 1*+0.2*XMS*< l.“VTVU)**2-VMV( J)**2) 

IF(CMN*GT»0#0I go to 87 

CP<J)=-XM1 

GO TO 89 

87 CP(J)=XMHMCMN**3*5-1.) 

GO To 89 

80 CP( J)»1*-VTV( JJ**2-VMV( J)**2 
89 CONTINUE 

C# PRINT OUTPUT 


00068770 

00068780 

00068790 

00068B00 

00068810 

00068820 

00068030 

00068040 

00068050 

00068060 

00068070 

10068880 

00068090 

00068900 

00068910 

00068920 


6UBS0NIC INTERFERENCE PRESSURE PROGRAM »* 
NO. *7X*2HXO»lOX»2HYO*10X*2HZQ»8X »6HVT/VFS 


NC»0 

00 110 J*1»NVY 
WRITE 16*90) 

90 FORMAT (1H1*20X.65H ** 

1 FAN-POO OUTPUT *»/6H0 
2»6X*6HVM/VFS.0X*2HCP/ ) 

00 110 1 = 1. NJX 
NC=NC+1 

ZP=ZQ{ NO /BETA 

yp=yqcnc>^beta 

WRITE (6*100) I *XQ(NC) *YP*ZP.VTV(NC) »VMV(NC) ♦CP(NC) 


100 

no 


*DECK 


C 

C* 

C 


format (1H 

CONTINUE 

RETURN 

END 

FLOAO 

SUBROUTINE 


*I5*6F12.5) 


FLOAO (FCL.CDF.FCM) 

calculate FANPOD LOCAL integrated LOADS 


COMMON/ DAT/ DA (5000) 
DIMENSION FVX( 1 ) *FJX( 1 ) 


equivalence 

1 * ( DA ( 1 ) * AR ) 
2*(DA(7) .XC6) 


(DA(5) *FCD) 

•( 0A( 2) *WSPAN) 


*(DA( 146C) *FVX) 
♦ (DAO) *XMAC) 


»(DA(1720> »FJX) 
.(DA16) *FAA) 


00068930 

00068940 

00068950 

00068960 

00068970 

00068980 

00068990 

00069000 

00069010 

00069020 

00069030 

00069040 

00069050 

00069060 

00069070 

00069080 

00069090 

00069100 

00069)10 

00069)20 

00069)30 

00069)40 

00069)50 

00069)60 

00069)70 

00069)80 

00069)90 



ro 

■vO 


C 


C 


C 

c* 


c 


C0MM0N/CR6/ P I *P 14 »RC »BETA 
COMMON/CFG/ IDB » IDF , I DW . I OP ♦ ION 

COMMON/ CPF/ NVX *NVXM ♦ NVY * NDV t NVB »NVBP ♦ NF *NJX * I FBE »S lNA»COSA*FAREA 


large BOUOOOO) »FUS( 25000) »XQ( 650) 

1 »DM1(8450) »AXY(650) »AYZ(650> 

2 .CP(650) .FOXllSO) *CLW(150) 

3 »FX(71) *CLWA(71> *CMXA<71) 

4 ♦CDWA<71) 

START 

CALC CtL )*W/WI AVG) AT OOWNWASH X 

IY«1 

DO 40 I®1»NJX 
JX=FJX( I ) 

OX=FVX{ jX+1 I~FVX< JX) 

•^0X< I ) = (FVX( JX)+FVX(JX+1) )/2* 

IX = I 


»YQ(650) .ZQ(650I 

»0M2U5191) »DM3( 2471 J 
♦ CDW(150) tCMKasO) 
*CMZ(150) *CMZA(71) 


station 


CLW( I )*0.0 
CMX( I ) =0.0 
CMZ( I )=U.O 
CDW( I )=0.0 
DO 30 J=1*NVY 

CLW< I )*CPUX)*tAXY( IY)#COSA +-AYZ( I Y) *S 1 NA )+CLWU) 
CMXi I)=CPt IX)*(XQ( IX)-XCG)#AXY< IY)+CMX( I) 

CMZU )=CP( IX)*Z0I rX)*AYZ( IY)-l-CMZ( I) 

CDWU >=CPUX)*IAXY( IY)*SINA -AYZ(IY)#COSA )+COW(I) 
IX=IX+NJX 
30 IY=IY+1 

CAX=FAREA*OX 
CSX*FCD/CAX 
CLW( I J=CLW( n*csx 
CMX( I )=-CMX( n/CAX 
CMZU )=-CMZ( n /CAX 
40 CDW( I)=COW( n*CSX 

* CALC C*W/W<AVG) AT EQUAL INTERVAL OF PHI 


DX=PI/70. 

FX{1)=0.0 

SPHI=0.0 

FCD2=FCD/2. 

DO 50 1=2*70 
SPHI=SPHI+DX 

50 FXn )=FCD2*( l*-COS(SPHn ) 


00069200 

00069210 

00069220 

00069230 

00069240 

00069250 

00069260 

000692T0 

00069280 

00069290 

00069300 

00069310 

00069320 

00069330 

00069340 

00069350 

00069360 

00069370 

00069380 

00069390 

00069400 

00069410 

00069420 

00069430 

00069440 

00069450 

00069460 

00069470 

00069480 

00069490 

00069500 

00069510 

00069520 

00069530 

00069540 

00069550 

00069560 

00069570 

)0069580 

00069590 

00069600 

00069610 

00069620 



CALL COOIM « FDX>CLW*NJX»FX*CLWA»70) 

call codim ( fox tCMX»NJX>FX»CMXA»701 

CALL COOIM IFDX»CMZtNJX»FX»CMZA»70) 

CALL CODIM <FDX*C0W*NJX»FX»CDWA»70) 

'iPH 1 = 0*0 

DO 52 I=2»70 

FX( I) » FX( n / FCD 

SPHI=SPH1+0X 

HSP*SIN(SPHI )/2# 

CLwn )=hsp*clwa( n 
CMX( I )=HSP*CMXA( n 
CMZ( I )=HSP»CMZAI I J 

52 CDWU > = HSP*CDWA( I ) 

C* SIMPSON rule integration 

SL1=CLW(70) 

SL2*0.0 

XM1=CMX(70) 

XM2=0*0 
2M1=CM2( 70) 

2M2=0*0 

SD1=C0W(70) 

SD2*0.0 

00 60 1=2*69,2 
SLl= CLW( I )+SLl 
SL2= CLW( 1+1)+SL2 
XM1= CMX( I )+XMl 
XM2= CMX( r + 1 M-XM2 
ZM1= CMZ( n+ZMl 
ZM2= CM2( I+1)+ZM2 
SOI* CDW( n+SDl 

60 SD2* CDWn + l)+S02 
DX3*DX/3. 

iot*idb+idw+iop+idn 

IF( IDT*NE*0) go to 70 
SR = l. 

CR = 1* 

GO TO 80 

70 SR=FAREA*AR/WSPAN*»2 
CR*FCD/XMAC 

80 FCMXY=DX3»(4,*XM1+2,*XM2)*SR*CR 
FCL *0X3» ( 4 • #SL 1 +2 • *SL2 ) *SR 
FCMYZ*DX3*<4#*ZM1+2.»ZM2.)*SR*CR 
C0F*DX3#( 4,*5Di+2,*S02 ) *SR 


00069630 

00069640 

00069650 

00069660 

00069670 

00069680 

00069690 

00069700 

00069710 

00069720 

00069730 

00069740 

00069750 

00069760 

00069770 

00069780 

00069790 

00069800 

00069810 

00069820 

00069830 

00069840 

00069850 

00069860 

00069870 

00069880 

)0069890 

00069900 

00069910 

00069920 

00069930 

00069940 

00069950 

00069960 

00069970 

00069980 

00069990 

00070000 

00070010 

00070020 

00070030 

00070040 

00070050 



ro 

03 


C* 


FCM=FCMXY+FCMV2 

PRINT OUTPUT 00070070 

write < 6*100) FAREA»FCL >C0F »FCMXY *FCMYZ*FCM* (FX( I) *CLWAt I ) *CDWA{ I >00070080 


1 

2 

100 FORMAT 

1 

2 
3 

A 


*FX( 1+35) *CLWA( 1+35) »C0WA( 1+35) *1*2*35) 00070090 

*FX(36) *CLWA(36) *CDWA136) 00070X00 

(1H1*1UX*45H *» FANPOO LOADS ♦* REF* FANPOD AREA** 00070X10 

F1A*5/XHO»10X* 5H* CL=F10*5»5X» 5H* CD*FXO*5*3X* 00070X20 

7H* CMXY=FI1,5*3X»7H* CMY2*F11 .5 *5X . 5H* CM*FiX.5/ 00070x30 

1HO*12X*1HX*15X*6HCLW/WA*11X*6HCDW/WA»12X*XHX*15X»6HCLW/WA00070X40 


* 11X»6HCDW/WA/ 1H0*6F17*5 /(1H *6FX7.5)> 


RETURN 

END 

•DECK WDPO 

subroutine WDPO 
C 

C* 

C 

C 
C 


C 

C 


CALC WING PRESSURE COEFFICIENTS (DP/Q) 
COMMON/ DAT/ DA (5000) 

DIMENSION WPE160) *WPC(30) tWPSOO) 


equivalence 


X 

2 

3 


< DA( 2) *wSPAN) 
*( DA( 1210) *WPE) 
*(DA( 1960) *DAF) 
*(DA(1281) *WNW) 


. (DA(4) ,XMACH) 

» (0A(1870) *WPC) 
»(DA11965) *DAX) 


»(0A( XX ) *FWCI ) 

» (DA(X9Q0) »WPcs) 

♦ ( DA< X270) *WNVC) 


COMMON /CRG/ 
COMMON/CPW/ 
COMMON/ CFG/ 
COMMON /CFK/ 


PI .PU*RC»BETA 
owi (9) »NU*NW 
OFK 10) *NKB*NKF 

NDA*NUT*THEF*SlNTF*SlNTF2*COSTFiTHEK.*SlNTK*SlNTX2 


LARGE 


1 

2 

3 

A 

5 


CXVdOOO) »B0U(2000) 

*EV(52> *DMl (94A) 

*0M2 (22374 ) *PYl( 6061 > *CEL( 3700 ) 


*FUS( 25000) *FAN( 23700) 
*WPT(60) 


*XF< 51*10) 
*DPQR(30) 
*EPS( 30) 


*DM3( 561 ) 
♦XLE( 30) 


*TA(3u*10) 

*XTLE(30) 


*THE(30) 


NPC=DA( 1272 ) 
NPS*DA(1273) 

shift 

DO 10 I»X*NPS 


TO LCM FOR SFC AND WINGO 


00070150 

00070X60 

00070X70 

00070X00 

00070X90 

)0070200 

00070210 

00070220 

00070230 

000702A0 

00070250 

00070260 

00070270 

00070280 

00070290 

00070300 

00070310 

00070320 

00070330 

000703A0 

00070350 

00070360 

00070370 

00070380 

00070390 

00070400 

00070410 

00070420 

00070430 

00070440 

00070450 

00070460 

00070470 

00070480 



66s 


10 EPSl 1 )5»WPS( I > 

C CALC MATRIX**F 

IF( WMW.NE.O.O) go to 57u 
NPS*NW 
IC‘NW 

DO 400 Ifi=l*NPS 
WPS( IC)»ev( IE) 

EPS(IC)=EvnE) 

400 IC*IC-1 

IC*N)CB+NKF 
00 410 lU=ltMU 
IX»NPS 

DO 410 IE=1»NPS 
IC = IC+-1 

XF( IX*IU)=CKV< lO/BETA 
410 IX=IX-1 
GO TO 580 

570 CALL SFC (NPS*EPS) 

C CALC CHORD LOAD SHAPES FUNCTION 

580 DO 594 I=lfNPC 

THE(I)* ACOS(l*~2.*WPC(m 
THED2«THE« I)/2. 

TA(I*1)» COSIThED2)/ SIN(THED2) 

ANC*0«0 

00 590 J=2»NUT 
ANC=ANC+1* 

590 TAII»J) = SINIANC * THEdM 
IFIOAF.EQ.O.O) GO To 592 
SINTT=SIN< .5*<THE(n-THEF)) 

IFCABSISINTT ),lT. 0*001) SrNTT=0*001 
TAI I fNUT+i JsALOGI ABS( SIN< .5*ITHE< D + THEF) ) /SINTT > ) 
592 IF(DAX.EQ*0,0 ) GO TO 594 

SINTT=SINI *5*tTHE( I )-THEK) ) 

IF(A0S(SINTT) .LT. 0.001) SINTT=0.001 

TA( I*NU)=AL0GIABS(SINI*5*ITHE< I )+THEX) )/SInTT) ) 

594 CONTINUE 
X3*8.*WSPAN 

CALL WINGO (NPS.EPS*XLE*XTLE»WPT ) 

WRITE (6*1000) (WPC( I) ♦ 1=1 *NPC) 

WRITE (6*2000) 

00 620 NE=1*NPS 

595 FBC=X3/XTLE(NE) 

DO 610 I=1*NPC 


00070490 

00070500 

10070510 

00070520 

00070530 

00070540 

00070550 

00070560 

00070570 

00070580 

00070590 

00070600 

00070610 

00070620 

00070630 

00070640 

00070650 

00070660 

00070670 

00070680 

00070690 

00070700 

00070710 

00070720 

00070730 

00070740 

00070750 

00070760 

00070770 

00070780 

00070790 

00070800 

00070810 

00070820 

00070830 

00070040 

00070050 

00070060 

00070870 

00070880 

00070890 

10070900 

00070910 



U U 


O 

O 


DPQR< 1 )*0*0 
DO 6Q0 J=1*NU 

600 DPORt I )=DPOR( I )+XF(NE*J)*TA( I»J) 

610 DPQR< n*EBC*DRQR( I) 

write ( 6f3000)WPS(NE) *<DPQR( I ) .I=1*NPC) 

620 continue 
6A0 return 

luOO <=‘0RMAT (31H1 ** WING LINEAR PRESSURE COEF* IHO* 7X* LIST OF 

lC/lH0*6X*10F10,4/( IH ♦6X*10F10*4) ) 

2000 FORMAT (35HO# ETA ** LISTS OF CP AT ABOVE X/C) 

3000 FORMAT! lH0F6.3*l0F10«A/( IH 6X#10F10,4)) 

END 

#DECK WVAP 

SUBROUTINE WVAP 

*VAP* CALC# VELOCITIES AND PRESSURES WITH THICKNESS 

common/DAT/ dai 5ooo i 

c 

DIMENSION AJ(30> 

C 

equivalence (DA(2)#WS) »(0A(4) .XMACHI ♦(0A11270) *XN1 ) 

1*I0A( 1660)*AJ) #( DAI I960) #OAF) *IDAI 1965 ) *DAK) 

2*(NJC*NJ) *(NJS*NEP) 

C 

COMMON/CRG/ PI *Pl4 »RC »BE TA 

COMMON/CFG/ lOB* lOF* lOW * I DP » 1 0N»NQB *NQF *NQW »NOP *NQN 
1 fNKB»NKF*NKW*NKP »NKN 

COMMON/CPW/ DWU9) tNU»NW*NVCfNVS»NJC*NJS 

COMMON/ CFK/ NDA»NUT*THEF »SINTF*sINTF2 »C0STF *THEK *SINTK*S INTK2 
1 *C0STK*SINDF*C0SDF*SINDK*C0SDK 

c 

large CKV(IOOO) fB0U(2000) »FUS< 25000 ) *FAN( 23700 ) 

* #0M1<996> ♦WPTI60) *BS(650) 

1 »EP(30) *XTLP130) *X0CPI30) 

2 »CSJ( 30 » 301 #TSJ( 30*30) *UV( 30*30) 

3 #UVPI30*30) *VV( 30*30) *VVP(30*30) 


00070920 

00070930 

00070940 

00070950 

00070960 

00070970 

00070980 

X/00070990 

00071000 

00071010 

00071020 

00071030 

00071040 

00071050 

00071060 

00071070 

00071080 

00071090 

00071100 

00071110 

00071120 

00071130 

00071140 

00071150 

00071160 

00071170 

00071180 

00071190 

00071200 

10071210 

00071220 

00071230 

00071240 

00071250 

00071260 

00071270 

00071280 


4 *DM2(25995) 00071290 

5 *XFt51*10) *SRE(51) *S(51*10) 00071300 

6 *BE<30*30) *CF130»3U) ♦CAI30*10> *TA<30*11) *TB(30*il) 00071310 

7 *TPTE(30) »TPLE(30) *PFI3U*10) 00071320 


8 _*UVUI30) *UVLI 30*30) *VVU(30) 

9 *CPU(30) .CPLI30) *CPNI30) 


00071330 

00071340 


»VVL(30*30) 

♦CP0130) 



u u 


* *AX(250) »AY(250) »A^(250) 

* initial theta and trig* FUNC* 

dth*pi/xni 

DO AO Jal»NJ 
THE*DTH*AJ( J) 

THE2=THE/2. 

TAt J*1 )*C0S(THE2 I/SIN <THE2) 

CF( J»1 1=1* 

c=o* 

DO 10 N»1»NUT 
C»C+1. 

CA( J.N)*C0S(C*THEJ 
CF( J,N+X)»CA|J*N) 

10 TA( JiN+1 )*SIN(C*THE) 

TB( J»1 )*TA( Jf2)^THE 
TB{J*2 )*THE2-TA( J*3)/4. 

DO 20 N=3*NUT 

D2*N+N 

01*02-4* 

20 TB(J*N>=TA( J»N-1>/01-TA(J*N+1)/D2 
IF(DAF*EQ*0*0) GO TO 30 
SINTT*SINI •5*(THE-THEF>) 

IF(ABS(SINTT) *LT,0*00n SrNTT=,OOl 
AST*ABS<SINI.5*<THE+THEF) }/SINTT) 

TA( J »NUT+1 >»ALOG( AST ) 

TB(J*NUT+1 )*(C0S(THE)-C0STF)*AL0G( 1*/AST)+THE*SINTF 
30 IF(0AK*EQ.0*0) go to 4U 
SINTTaSIN( *5*(THE-THEI0 ) 

IFCABS(SINTT)*LT, 0*001) SINTT=*001 
AST=ABS(SIN(*5*(THE+THEK) )/SINTT) 

TA( J*NU)»AL0G(AST) 

TB I J *NU ) = t COS( THE ) -COSTK ) *ALOG < 1 • /AST ) ^-THE*SI NTK 

40 CONTINUE 

TF(OA(2000) *EQ*0*01 GO TO 200 
C* CAlC slope OF camber SURFACE 

NA«0 

DO 41 I=1»NEP 
00 41 J*1*NJ 
NA»NA+1 

41 BE( J« 1 )»BSINA) 

CALL MSOLX(NUT*NJ»NEP*CF*BE*30) 

DO 44 IE=1*NEP 


00071350 

00071360 

00071370 

00071380 

00071390 

00071400 

00071410 

00071420 

00071430 

00071440 

00071450 

00071460 

00071470 

0OOTl480 

00071490 

00071500 

00071510 

>0071520 

00071530 

00071540 

00071550 

00071560 

00071570 

00071580 

00071590 

00071600 

00071610 

00071620 

00071630 

00071640 

00071650 

00071660 

00071670 

00071680 

00071690 

00071700 

00071710 

00071720 - 

00071730 

00071740 

00071750 

00071760 

00071770 



DO A4 J=l»NJ 
SUMA*OeO 
DO 42 N=2*NUT 

42 SUMA=CF(N»ie»*CA(J*N“l)+i»UMA 
SUMB*0*0 

C«0«0 

00 43 N=3*NUT*2 
C«C+1. 

43 SUMB*<CFCN*IE) / {4,#C**2-1. )-fSUMB 

44 CSJt IE*J)=-SUMA~SUMB 

C* TPS FOR tan phi STAR 

HWS=WS/2* 

call TPS (HWS.WPT»NEP»EP*TPTE.TPLE) 

C* SPF FOR DERIVATIVE OF F MATRIX 

CALL SFC (NEP»EPJ 
call SPF 

C* CALC4 velocities AND PRESSURES 

DO 45 IE=1*NEP 
DO 45 JsltNJ 
UVL(1EO)=0«0 

45 VVL( IE*J)»0.0 
1FUDB*E0*0) GO TO 47 

C* CALC influence OF OTHER COMPONENTS ON WING 

o DO 46 IE=lfNEP 

^ DO 46 J*1*NJ 

READ (19J ( AX( IS) *AYt IS) *A2.( IS) »lS=ltNKB) 

DO 46 IS*1*NKB 

UVLl IE*JI=UVLt IE«J)+AX( IS)»CKV( IS) 

46 VVlUE* J)»VVL< IE*J)+AYi IS)*CKV( IS) 

47 IF(IDF.EQ#0) GO TO 49 
DO 48 IE=ltNEP 

DO 48 J=1*NJ 

READ (20) { AX( IS) »AY( IS) »A^( IS) *IS=1*NKF) 

ic=Nxe 

DO 48 IS=1*NKF 
IC^IC+1 

UVL( IE* J)«UVLi IE*J)+AX( 1S)*CKV( IC) 

48 VVLnE*J)=VVLUE*J)+AY( IS)*CXV( 1C) 

49 IFUDP.EQ.O) GO TO 51 
DO 50 IE»1*NEP 

DO 50 J=1.NJ 

READ (22) ( AX( IS) *AY( IS) *Ai( IS) *IS=1*NKP) *PUV*PVV 

IC=NKB+NXF+NKW 


00071780 

00071790 

00071800 

00071810 

00071820 

J0071830 

00071840 

00071850 

OOO7106O 

00071870 

00071880 

00071890 

00071900 

00071910 

00071920 

00071930 

00071940 

00071950 

00071960 

00071970 

00071980 

00071990 

00072000 

00072010 

00072020 

00072030 

00072040 

00072050 

00072060 

00072070 

00072080 

00072090 

00072100 

00072110 

00072120 

00072130 

□0072140 

00072150 

00072160 

00072170 

00072180 

00072190 

00072200 



UVlUE* J ) =UVlHE* J)+PUV 
VVLUE*J)=WLnE*J)-»-PVV 
DO 50 IS=1*NKP 
IC-IC+1 

UVL( rE»JI=UVL< IEtJ)+AX( IS)*CKV( IC) 

50 VVL< IE*J)“VVL< IE*J)+AY( lS)#CKVi IC) 

51 IF< ION*EQ.O) GO TO 55 

00 52 IE*1*NEP 
DO 52 J=1*NJ 

READ (9) (AX( IS) tAY( Ib) *AZ( Ib) *1S=1*NKN) 

1 C*NK84-N)CF+NKW+NKP 
00 52 IS=1*NKN 
IC»IC+1 

UVLnE*J)=UVLnE*J)+AX( IS)*CKV( IC) 

52 VVLI IE*J)=Wl( IEtJ)+AY< IS)#CKV< IC) 


55 WS8s8««WS 
BSQ=BETA**2 

write (6*100) 

DO 90 IEal»NEP 
C1=WS8/XTLP( IE) 

C2*C1/A* 

DTP=TPT£( IE)-TPLE( IE) 

DO 80 J«I*NJ 
READ (21) 

uvb=uvl( iE»j ) /beta 

VVB»VVL(IE*J) 

56 TP=TPLE( I£)+0TP*XOCP( J) 

TPX»TP»TP 

TP1=1*+TPX 

TP2=S0RT(TP1) 

TPU=TP2*(UV( IF* J)-UVP( IE*J) )+l. 
TPV=TP2*( VVUE* J)-VVP(IE*J) )+l* 
DiU=TPl*(TSJ( IE* J)-CSJ( IE*J ) )**2 
DZL“TPl*tTSJ( IE*J)-*-CSJ( IE*J) )**2 
DSU=SORT( 1 «+DZU) 

DSL»SQRT( l.+DZL) 

CPS=0, 

VVS*0» 

DO 58 N=2*NU 

CPS=CPS+XFUE»N)*TA( J»N) 

58 VVS=VVS+PFUE*N)«TB( J*N) 

CP1*XF( IE*1 >*TA( J*1 ) 


00072210 
00072220 
00072230 
000722A0 
00072250 
00072260 
00072270 
00072280 
00072290 
00072100 
00072310 
00072320 
00072330 
000723A0 
00072150 
00072360 
00072370 
00072380 
00072390 
00072400 
00072410 
00072420 
00072430 
000724A0 
00072450 
00072460 
00072470 
00072480 
00072490 
00072500 
00072510 
00072520 
>00725 30 
000725A0 
00072550 
00072560 
00072570 
00072580 
00072590 
00072600 
00072610 
00072620 
00072630 



CPO( J J=C1*<CP1+CPS) 

UVS=C2*(CP1*TPU+CPS) 

UVU( J) = (UVl IE*J)+UV3+t l.+TPX*DbU) /TPl ) /Di>U+UVB/Di5U 

UVL< IE*J)=<UVl IE*J)-UVS+( l«+TPX*DbL) /TPl )/DSL+UV0/OSL 
VVl»2.*PFI IE»1)*TBU*1)-C2*CP1*TP 
VVSsVVl*TPV+2,«VVb-C2*CPi>*TP 
TTP=TP/TP1 

VVU( J) = ( VV( IE*J »+VVS-TTP*< 1*-0SU) } /DSU*BETA+VVB/ DSU 
WL( IE*J)*( VV< IE*J)-VV5-TTP<M I.-OSLJ ) /DSL«BETA+VVB/ DSL 
CPU( J)=1,-UVU( J)**2-VVU( J)**2 

CPL( JJ»1*-UVL(IE.J1*»2-VVU< IE*J)»*2 

compressibility effects 

IFIXMACH.LE.O.O) GO TO 78 
XMS*XMACH^H^2 
XMl=l.^28S7/XMS 
XM2=0«2*XMS 

IF(XMACH*GT.O.Ol ) GO TO 62 
CPU( J)*CPUIJ)+XMS*CPU( J)/4.0 
CPL { J ) =CPL I J )+XMS*CPL U ) /4* 0 
GO TO 7o 

62 CPU«J)“XMl»( 1*+XM2*CPU( J» »**3.5-XMl 
CPL( J I=XM1*( 1*+XM2»CPL( Jn**3*5-XM1 

70 SINP*TP/TP2 
C0SP=1*/TP2 
CP2«COSP»*2 
SP2=SINP**2 
SCP*SINP*C0SP 
CPMA»XMACH»COSP 
CPM2*CPMA**2 
SRCM»SORT( 1.-CPM21 
CSR=#5*( 1*-SRCM> 

CPU! J » *CPU { J I *SRCM f ( 1 *-CPU ( J ) *CSR > 

CPLt J)=CPL( J)*SRCM/( l.^CPLl J)*CSR> 

BWU»S0RTtl,-CPM2*< 1,-CPU(J)*CPMA> ) 

BWL»SQRT(1,-CPM2*« 1 .-CPUJ ) *CPMA) ) 

DVMU*UV« IE* J)+UVS+UVB 
OVML=UV( IE* J)~UVS+UVB 

nvTu=(vv< ie*j)+vvs)*beta+vvb 

0VTL*<VV< IE*Jl~YVS)*6ETA-fVVB 
SBOU=SQRT ( BWU**2+0^U ) 

SBDL*SQRT < 8WL**2+D2L > 

UVU( J ) * ( BWU*CP2+ leS0#DVMU*CP2-BETA*DVTU»SCP ) /SRCM ) /S8DU 


00072640 

00072650 

00072660 

00072670 

00072680 

00072690 

00072700 

00072710 

00072720 

00072730 

00072740 

00072750 

00072760 

00072770 

00072780 

00072790 

00072800 

00072610 

00072820 

00072830 

>0072840 

00072850 

00072860 

00072870 

00072880 

00072890 

00072900 

00072910 

00072920 

00072930 

00072940 

00072950 

00072960 

00072970 

00072980 

00072990 

00073000 

00073010 

00073020 

00073030 

00073040 

00073050 

00073060 



c 


c 


c 


c 


* X •+DVMU}*SP2+DVTU*SCP 

UVL( IE«J»='(8WL*CP2+(BSQ*DVML*CP2“BETA*0VTt*SCP»/SRCM )/SBDL 

* +( l,+DVML)*SP2->-DVTt»SCP 

VVU( J )a-(8WU*SCP+(BS0»0VMU*SCP-BETA#DVTU*SP2 >/SRCM ) /SBDU 

* ■♦•{1*4-0VMU)*SCP+0VTU*CP2 

WLl IE*J)»-(BWL*SCP+(BSO»DVML*SCP-8ETA*DVTL*SP2)/i>RCM )/SBDL 

* >( l.+DVML)»SCP+DVTL*CP2 
CPU( J)*#2-VVU(JJ**2 

CPL( J>=1*“UVL( IE*J)**2-VVL« IE*J>**2 
IF<XMACH*GT*0.01 > GO TO 72 
CPU( J)=CPUt J)+XMS*CPU( J)/A.O 
CPL ( J ) »CPL t J ) >XMS*CPL U ) / A.O 
GO TO 78 


00073070 
00073080 
00073090 
00073100 
000731X0 
00073X20 
00073130 
000731 AO 
)0073150 
00073160 
00073170 
00073180 
00073190 


72 CPU( J)*XM1*( l.+XM2*CPU( J> )**3*5“XMX 
CPLU)»XMX*a*+XM2*CPL( J) )**3,5~XMl 
SAVE CP FOR LOAD CALC 
78 BE(IE*J)=CPU(J> 

CFt IE»J)*CPL( J) 

80 CPN( JJ=CPU J)-CPU( J) 

90 WRITE (6*120) EP< IE ) ♦ (XOCP( J) *UVU( J ) *UVL ( I E* J ) * VVU ( J)* 

1 VVL( IE*J) »CPU( J)*CPL( J)*CPN( J)*CPO( J)*J=1*NJ) 

100 FORMAT (54H1 **WInG NON-LINEAR VELOCITY AND PRESSURE COEFFICIENTS 
120 FORMAT (8H0 ETA =»F7*A/1H »7X*3HX/C»7X*6HU/V UP»6X.7HU/V L0W*5X* 

1 6HV/V UP»6X*7HV/V L0W*6X*5HCP UP»7X*6HCP L0W»6X*6HCP L-U* 

2 5X*7HCP NETl/(1H »9FX2.5>) 


GO TO 300 

CALC LINEAR 

200 WS8»8*«WS 

CALL SFC (NEP*EP) 

DO 220 IE=l*NEP 
C1=WS8/XTLP( IE) 

00 220 J*1*NJ 
READ (21) 

IF(1DB*NE*0) read (19) 
IF(IOF.NE,0) READ (20) 
IFUDP.NE.O) READ ( 22 ) 
IF(I0N.NE*0) READ (9) . 


■ CPS=»0«0 
DO 210 N=1 »NU 

210 CPS=CPS+XF( IE*N)*TA( J*N) 
220 BE( IE#J)=CX*CPS 


PRESSURE COEFFICIENTS AND SKIP RECORDS 


00073200 

00073210 

00073220 

00073230 

000732A0 

00073250 

00073260 

00073270 

100073280 

00073290 

00073300 

00073310 

00073320 

00073330 

000733A0 

00073350 

00073360 

00073370 

00073380 

00073390 

00073400 

00073410 

00073420 

00073430 

000734A0 

00073450 

00073460 

00073470 

00073480 

00073490 



U) 

o 


300 
♦ DECK 
C 

C* 

C 


C 

C* 


return 

END 

WLOAD 

SUBROUTINE 


WLOAD (WCL*WCD*WCM) 

CALC. WING LOAD PARAMETERS 


COMMON/DAT/ DA (5000) 
DIMENSION WJSt 1 ) *WJC ( 1 ) 


EQUIVALENCE 
l*(DAt7).XC6) 
2*(DA( 1960) »DAF) 
3.(0A( 1965) .DAK) 


(DA( 1) »AR) 

»(DA< 1270) »WNVC) 
*(DA( 1961) »PXCF) 
♦(DA( 1966) *PXCK) 


*(0A(2) *SPAN) 
*<OA( 1660) *WJC> 


*(DA(3) »XMAC) 
*(DA(1690) .WJS) 


»(DA( 1962) »ETFI) *(DA(l963) ♦ETFO) 
» (OA< 1967) »ETKI) * (0A( 1968) .ETKO) 


C0MM0N/CR6/ 
COMMON /CFG/ 
COMMON/ CPW/ 
COMMON/ CFK/ 

LARGE 


PI 
lOB.IDF 


00073500 

00073510 

00073520 

00073530 

00073540 

00073550 

00073560 

00073570 

00073580 

00073590 

00073600 

00073610 

00073620 

00073630 

00073640 

00073650 

00073660 

00073670 


HWS.NTI ♦NTOtDLI ♦DL0tNE2*NE3*NE5* I W1 < 3) *NVC»NVS*NJC »NJS00073680 


IKI ( 10) .sindf.cosdf.sindk^cosdk 


1 

2 

3 

4 

5 

6 

7 

8 
9 


BOU( 3000) 
»FV(52) 
»EP(30) 
.DM3( 36001 


10 


00073690 
00073700 
00073710 
♦BS(650) 00073720 

♦TSJ( 30*30)00073730 
00073740 
00073750 
00073760 
00073770 
00073780 
00073790 
00073800 
00073810 
00073820 

0SLEB*SQRT( ( YR{ 1201 )-YR( 1202) ) **2+ ( ZR( 120 1 ) -ZR( 1202 ) ) 00073830 

00073840 
10073850 
00073860 
00073870 
00073880 
00073890 
00073900 
00073910 
00073920 


♦FUS( 25000) «FAN( 23700) 
*XLV(52) *XTLV(52) 

*XTLP<30) *XOCP(30) 

»XR(1800) *YR(1800) 

*DM4i 10834) *PYL(6061) *CEL(370M 

.CPUt 30*30 ) *CPL( 30*30) *DSS(30*30) 
.CNI(32> *CMn32) 

*CNO(40) *CM0(40> 

*CNCCI(31) *CMCCI(31) 
*XLE( 52) 


.THI(32) 
•TH0140) 
*EPI( 31) 
*EVO( 52) 


*CNCCO{52) 


*DM1<900) 
*0M2(900) 
*ZR( 1800) 
♦DM5(1071) 

*CDI ( 32 ) 
♦CDO( 40) 
»CDCCI(31) 
»CMCCO<52 ) 


*STH(30) 

♦XCCP(52) 
*COCCO( 52) 


CAlC OS/DSLE OF ROOT SECTIONS 
IF( lOB.NE.O) 

I * 82 ) 

IF( lOF.EQ.O) GO TO 10 

DSLE1«SQRT( (YR( 1)-YR( 2) )**2+( ZR ( 1 ) -ZR( 2 ) ) **2 ) 
DSLE2=S0RT( (YR(601)-YR(602) )**2+(ZR(601)-ZR(6U2) )**2) 
SPANWISE LOOP 
DO 50 IJS*1*NJS 
IY«WJS( IJS) 

IEB*IY-NE5 

IEF=IY-NE3 



n ri n n 


c chordwise loop 

no 50 IJC*l*NJC 
IX=WJC(IJCJ 
DSSi IJS*1JC)«1.0 
IFdOF.EQ.Oj GO TO 
IFUEF^LEiOl GO TO 
IF(IEF*GT*3) GO TO 
DSLE=DSLE1 
IC»4«IX4-IEF 
GO TO 40 

C INBOARD 

20 IF(IFF,GT*6) GO TO 
DSLE=DSLE2 
IC»4#IX+IEF+597 
GO TO 40 

C ROOT OF 

30 IFUOB.EQ.O) GO TO 

if(ieb.le.o) go to 

IF( IEB.GT.3) GO TO 
OSLE*DSLEB 
IC=4*Ix+IEB+1200 
C 

^ 40 DY=(YR( lO-YRdC + l )+YR< IC-4)-YR{ IC-3ll/2*0 

^ DZ=(ZR( lC>-2RnC+l)+ZRnC-4)-2R(IC-3l )/2.0 

OS=SORT < DY#*2+DZ**2 ) 

DSS( IJS»lJC)=Di>/DSLE 
50 CONTINUE 

OUTBOARD ROOT OF FANPOO 
calc CHORDWISE THETAS 

DTH*PI/WNVC 
C0NS=.5*AR/SPAN»DTH 
TH0(1)=0TH 
DO 60 I*2#NVC 
60 THOlH=THO(I-l)+DTH 

THlin=0*0 
00 70 IC-1*NJC 
THK IC+1 )=WJC( IC)*DTH 
70 STH( IC)=SIN(ThIUC+1> ) 

NJI=NJC+2 
THI(NJn=PI 


30 

50 

20 


ROOT OF FANPOD 
30 


FUSELAGE 

50 

50 

50 


CALC LIFT* DRAG AND MOMENT COEFFICIENTS 


00073930 

00073940 

00073950 

00073960 

00073970 

00073980 

00073990 

00074000 

00074010 

00074020 

00074030 

00074040 

00074050 

00074060 

00074070 

00074080 

00074090 

00074100 

00074110 

00074120 

00074130 

00074140 

00074150 

)007416o 

00074170 

00074180 

00074190 

00074200 

00074210 

00074220 

00074230 

00074240 

00074250 

00074260 

00074270 

00074280 

00074290 

00074300 

00074310 

00074320 

00074330 

00074340 

00074350 






IVsNJS 

00074360 




NA«0 

00074370 




CNK l)=0-0 

00074380 




CMK n«o*o 

00074390 




CDI ( 1)*0*0 

00074400 




CNI (NJD^O.O 

00074410 




CMl(NJn=O.D 

00074420 




CDI (NJI)»0.0 

00074430 


c 



00074440 




00 160 IE=ItNJ5 

00074450 




DO 140 IC=1*NJC 

00074460 




TD»0.0 

10074470 


c 


CALC tan of flap DEFLECTION 

00074480 




IF<DAF.EQ«0*0) 60 TO 100 

00074490 




IF(EP{ IE).LE*ETFI) GO TO 100 

00074300 




IF(EP< IE).GE,ETFO> GO TO 100 

00074510 




IF(XOCP{ ICULE.PXCF) go to 100 

00074520 




TD»SINOF/COSOF 

00074530 




GO TO 110 

00074540 


c 


calc tan of KRUGER DEFLECTION 

00074550 



100 

IF(0AK.EQ*0) GO TO 110 

00074560 




IF(EP(IE)*LE*ETKn GO TO 110 

00074570 




IF(EPUE) •GE*ET<0) GO TO llO 

00074580 

g 



IF<XOCP( lO.LE.PXCK) GO TO 110 

00074590 




TO=SINOK/COSDK 

00074600 


c 


INCLUDE THICKNESS SL0PES*CAM8ER AND TWIST 

00074610 



110 

NA=NA+1 

00074620 




IF(DA12000UEQ*0.0) GO TO 120 

00074630 




STCTU=-TSJ( IE»IC)+BS(NAJ 

00074640 




STCTL=TSjnE*IC)+BS{NA1 

00074650 




TAU=ITD+5TcTU)/( 1,-TD*STcTUJ 

00074660 




TAL^ITD+STCTL)/ t I.-TD^STCT l j 

00074670 




CPN=CPL( IE»IC)-CPU( IE»IC) 

00074680 




CP0=TAL4CPL( IE* IC)-TAU*CPU( IE* IC) 

00074690 




GO TO 130 

00074700 



120 

CPN=CPU( IE*ICJ 

00074710 




CPD=( TD+BS(NA> )/< 1*-T0*BS(NA))*CPU< IE*IC) 

00074720 



130 

CPM=CPN*XOCP< IO*XTlPUE) 

00074730 




OST=OSS( IE* ICJ*STH( IC) 

00074740 




CNI ( IC+l) =0ST»CPN 

00074750 




CMI ( IC+1)=DST*CPM 

00074760 



140 

CDI ( IC+U=DST*CPO 

00074770 


c 


CHOROWISE EXPANSION 

00074780 



CALL CODIMlTHI*CNl tNJ I ♦THO*CNO»NVC) 

CALL C 0 DIM(TH 1 *CMI fNJi ♦rHO*CMO*NVC) 

CALL codim ( THI *CDI »NJI *THo*COO*NVC) 

C SUM CN*CM AND CD CHORDWISE 

CN»0*0 
CM=0*0 
CD=0.0 

DO 150 I=1»NVC 
CN=CN+CN0( n 
CM=CM+CMO( I J 
150 CO=CD+CDO( I > 

C SET parameters IN ASCENDING ORDER 

EPIl IV)=EP{ IE) 

CC=CONS»XTLPUE) 

CNCcn rv>=cc*cN 
CMCC I ( I V > -~CC*CM/XMAC 
COCCI ( IV)=CC*CD 
160 IV=IV-1 
C 

C* INTEGRATE SPANWISE 

NSlsNJS+1 
EPI<NSI)=1,0 

^ CNCCHNSI )=0.U 

o CMCCI (NSI)«0.0 

coccnNsn»o*o 

IV=NE2 

DO 170 I=1»NE2 
EVO( IVI=EV( I J 
XLEnV)»XLV(I) 

170 IV-IV-1 

C SPANWISE EXPANSION 

CALL C0DIM(EPI»CNCCI»NSI*EV0*CNCC0*NF2) 
call C0DImIEpI*CmCCI,NSI*EV0*CmCC0*NE2I 
call CODIMIEPI ♦cocci *NSI.EV0*CDCC0*NE2) 

C CALC TOTAL WING LIFT*0RAG AND MOMENT 

WCL=0*0 
WCM=0.0 
WCD=0*0 
NEE=NE2-NE3-3 
DO 2A0 1 = 1. NE2 

IFj ABS(CNCC0( I) I .LT-O.OOOOOl) CNCCOC I l=0#00000l 
xccp( I >=-CMcco( n/CNCCon ) 

CMCG=CMCCO( I )-XL£( n*CNCCO( I )+XCG*CNCCO( I I 


00074790 

00074800 

00074810 

000 74820 

00074830 

00074840 

00074050 

00074060 

00074870 

00074000 

00074090 

00074900 

00074910 

00074920 

00074930 

00074940 

00074950 

00074960 

00074970 

000749SO 

00074990 

00075000 

00075010 

0007-5020 

00075030 

00075040 

00075050 

00075060 

00075070 

00075080 

00075090 

00075100 

00075110 

00075120 

00075130 

00075140 

00075150 

00075160 

)007517o 

00075100 

000^5190 

00075200 

00075210 



n n 


<-o 

H 


IF( IDF.EQeO) GO TO 200 
IF(I,GT,NEE) go to 200 
CNX=DLI*CNCCO( I) 

CMX=DLI#CMC6 
CDX=DLI*CDCC01 I ) 

GO To 210 

200 CNX*DL0#CNCC0t I) 

CMX*=OLO*CMCG 
CDX=OLO*COCCO( I > 

210 IF(IDB*NE*0) GO TO 220 
IF( I.NE.l) GO TO 220 
CNX=CNX/2. 

CMX=CMX/2. 

CDX=CDX/2. 

GO TO 230 

220 IF(UNE.NE2) GO TO 230 
CNX=CNX/3. 

CMX»CMX/3. 

CDX=C0X/3. 

230 WCL=WCU+CNX 
WCM=WCM+CMX 
240 WCD=WC0+CDX 

IF ( ABS ( WCL »*LT*0. 000001 ) WCL=0, 000001 

WXC»~WCM/WCL 

PRINT OUTPUT 

WRITE I6,300» ( I »EVO( I » *CNCCO( I ) ♦COCCO( I » *CMCCO( n »XCCPt n » 

1 I=ltNE2) 

300 FORMAT <1H1*20X*17H ** wlNG LOADS »*/lH » 24X »3HE TA » 12X t6HCNC/CA » 
1 9X»6HCDC/CA*9X»6 HCmC/CA.9x» 6HX/C CP/ <IH ♦I15»5Fi5.5») 


00075720 

00075230 

00075240 

00075250 

00075260 

00075270 

00075260 

00075290 

00075300 

00075310 

00075320 

00075330 

00075340 

00075350 

00075360 

00075370 

00075380 

00075390 

00075400 

00075410 

00075420 

00075430 

00075440 

00075450 

00075460 

00075470 

)OOT548o 

00075490 

00075500 

00075510 


C 00075520 

WRITE (6»310) WCL*WCD»WCM»WXC 00075530 

310 FORMAT (1H0»2UX»22H ** TOTAL WING LOADS »/lH ♦ 39X ♦ 3HWCL ♦ 12X » 3HWCD *00075540 
1 12X*3HWCM* 12X*3HX/C/1H »30X»4F15.5) 00075550 

C 0007 6560 

return 00075570 

end 00075580 

♦DECK PDPO 00075590 

SUBROUTINE POPO 00075600 

Q 00075610 

c* CALC pylon pressure COEFFICIENTS (DP/Q) 00075620 

C 00075630 

COMMON/DAT/ OA<5000) 00075640 




c 

DIMENSION PJCU8> 

C 

EQUIVALENCE < DA < 2500) »PHT ) * (DA ( 2512 ) *PJC ) • ( DA ( 1 9 ) *PVPC) 

C 

COMMON/CRG/ P I , P 14 »RC »BETA 
COMMON/CFG/ IGl ( 10 ) iN>^F »NK\« *NK.P 

COMMON/CPP/ HPS»NVSH*NVT*DL *NEVP »4C0N # YCON»NVC »NVb »NJC *NUP 
C 

large CKV(IOOO) *DMl( 74130) 

1 »EV(22) »XLE(22) *XTLE(22) *WPE(39) 

2 tXD(60} »YD(60) «ZD(60) 

3 *DPWl ( 1220 > fCFJ( 20 J »STH<20) ♦ACT(20) 

4 *DM2(4496) »CEL<3700) »XF(2o*10) .TA(2U*11) 

5 ♦DPQR(20) »rtPS(2u) *WPC(20) »XTL(20) 

6 iYC(90) *ZC(90) 

C 

C PRINT pylon root COORDINATES 

WRITE (6,700) 

NT0=3*NJC 
DO 100 IM»1,NTD 
YC( IM)=Y0( IMI/BETA 
100 ZC( IM)»2D( IM)/BETA 
IC=NVS 

DO 105 IE*l»NVS 
XTL< IC)=XTlE( IE) 

WPS( IC)=EV(IE) 

105 IC*IC-1 

IS=NTD-NJC+1 

IE»NTD 

DO 110 NE=1*3 

VRITE (6»3000)WPS(NE) * ( XD ( K ) »K= I S * IE ) 

WRITE (6*720) ( YC(K) *K»IS* IE) 
write (6*720) 14C(K) *K=IS*IE) 

IS*IS-NJC 
no IE = IE-NJC 

C CALC MATRIX-F 

IC=NK0+NXF+NKW 
DO 410 IU=1,NUP 
IX=NVS 

DO 410 IE=1*NVS 
IC=IC+1 

XF( IX, IU)=CKV( lO/BETA 


00075650 

00075660 

00075670 

00075680 

00075690 

00075700 

00075710 

00075720 

00075730 

00075740 

00075750 

00075760 

00075770 

00075780 

>0075790 

00075800 

00075810 

00075820 

00075830 

00073840 

00075850 

00075860 

00075870 

00075880 

00075890 

00075900 

00075910 

00075920 

00075930 

00075940 

00075950 

00075960 

00075970 

00075980 

00075990 

00076000 

00076010 

00076020 

00076030 

00076040 

00076050 

00076060 

00076070 



o n n 


u» 

ro 


41U IX=IX-1 

C CALC CHORD LOAD SHAPES FUNCTION 

DO 59o I=1«NJC 
IJ=PJC( n + 1. 

WPC( I >=CFJ( IJ) 

THED2=ACT( IJ)/2» 

TA(I,1>= C 0 S<THE 02 )/ SlN<THe02) 

ANC=0*0 

DO 590 J=2*NUP 
ANC=ANC+l- 

590 TA(I«J> = SIN(ANC »ACTlUn 
X3»16**PHT 

wRUe (6*10001 (iNPC( n ti*i*Nja 
WRITE (6*2000) 

IC=PVPC 
IE*NVS-IC 
00 620 NE=l*IE 
595 EBC=X3/XTL(NE) 


00076080 

00076090 

)0076100 

00076110 

00076120 

00076130 

00076140 

00076150 

00076160 

00076170 

00076180 

00076190 

00076200 

00076210 

00076220 

00076230 

000762AO 

00076250 


600 

610 

620 

640 

700 

720 

lOUO 


DO 610 I’l.NJC 
DPOR( n=o*o 
DO 600 J=1*NUP 

OPQR( I )=DPQR( I )+XF(NE*J)*TA( l*J) 

DPOR( n=EBC*DPQR{ I > 

WRITE (6*3000) wPS(NE) * IDPQR( I ) * I=1*NJC) 
CONTINUE 

return 

FORMAT (27H1 ** PYLON ROOT COORDI NATES/23H0 


* ETA * LIST OF 


00076260 

00076270 

00076280 

00076290 

00076300 

00076310 

00076320 

00076330 

X»Y*Z)00076340 


FORMAT ( 1H0.6X*10F10.4/(1H *6X*1UF10*4)) 00076350 

FORMAT (31H1 *»PYLON LINEAR PRESSURE COEF. / IHU ♦ 7X . 14H*» LlisT OF X/00076360 


1C/1H0»6X*10F1U,4/ ( IH *6X . iOF10,4 ) ) 00076370 

2000 format (35HU* ETA LISTS OF CP AT ABOVE X/C) 00076380 

3u00 FORMAT( 1H0F6,3*10F10«4/(1H 6X*lUFlU.4)) 00076390 

00076400 

*DEaC PVAP 00076410 

SUBROUTINE PVAP 00076420 

00076430 

♦VAP* CALC. VELOCITIES AND PRESSURES WITH THICKNESS 00076440 

00076450 

COMMON/DAT/ 0A(5000) 00076460 

(■ 00076470 

DIMENSION PJC(18) 00076480 

r 10076490 


EQUIVALENCE ( DA( 4 ) *XMACH) » ( DA( 2500 ) » PHT ) » ( DA( 25 12 ) ♦ PJC ) 00076500 



OJ 

I-* 

U) 


C 


C 


c 

c* 


c 


1 »<DAl 19) »PVPC) 


COMMON /CRG/ 

PI. 

P 14 .RC 

o: 

> 




COMMON/ CFG/ 

IDB 

. IDF > IDW » IDP » ION. I 

GK5 ) .NKB.NKF.NKW.NKP. 

COMMON/CPP/ 

DPP 

t3> *DL 

.DPPK 3) 

.NVC 

.NVS.NJC .NOP 

LARGE 

CKV 

UOOO) 

.DM1 ( 74130) 




♦ EV( 

22) 

»XLV( 22 

) 

.XTLV(22) 

.WPE< 39) 


♦ CFJ 

120) 

.STH< 20 

) 

*ACT(20) 

♦DP2<466) 


.CSJ 

120.20 

} ♦ T S J < 20 

♦ 20) 

.UV(20,20) 

♦ UVP( 20 .20 ) 


»W( 

20.20) 

.VVP(,2U 

.20) 

.DPP2<220) 

♦ BB< 360) 


tDM2 

(4750) 

»XF(20. 

10) 

.BE(2o.20) 

♦CF(20.20) 


.TA( 

20.11 ) 

.Tb<20. 

10) 

.TPTE<20) 

.TPLE(20) 


»UVU 

<20.20 

) .UVL< 20 

.20) 

.VVO< 20.20) 

.VVL<20. 20) 


.CPU 

( 20.20 

) .CPL< 20 

.20) 

.CPN<20.20) 

.CPO< 20 .20) 


*AX( 

250) 

.AY(250 

) 

♦AZ(25U) 

♦X0CPt2U) 


INIT 

lAL THETA AND 

TRIG 

• func. 



»OPK 1400) 


*CA(20»10) 

*PF(20»10) 


DO 20 J=1»NJC 
IJ=PJC(J)+1. 

THE=ACT( I J) 

THE2=THE/2.0 
X0CP( J)*CFJ( IJ) 

TA( J»1 )=C0S( THE2)/blN<THE2) 
CF( J»1)=1*0 
C = 0. 


00076510 

00076520 

00076530 

00076540 

00076550 

00076560 

00076570 

00076580 

00076590 

00076600 

00076610 

00076620 

00076630 

00076640 

00076650 

UU076660 

00076670 

00076680 

00076690 

00076700 

00076710 

00076720 

00076730 

00076740 

00076750 

00076760 


00 10 N=1*NUP 
C=C+1. 

TA( J»N+1)=6IN(C*THE) 

CA( J*N)=C05(C*THE) 

10 CF( J»N+1 )=CA( JfN) 

TB( J*1 J =TA( J*2)+THE 
7Bt J»2 )=THE2-TA{ J»3) /4. 

DO 20 N=3*NUP 

D2=N+N 

D1=D2“4* 

20 T8( J»N)=TA( J»N-1 )/Dl-TA( J«N+l) /02 
1F(DA(3000)#EQ«0,0) GO TO 200 

CALC SLOPE OF CAMBER SURFACE 

NA = 0 

DO 30 I=1*NVS 
DO 30 J=1 »NJC 
NA=NA+1 


00076770 

00076780 

00076790 

>0076800 

00076810 

00076820 

00076830 

00076840 

00076850 

00076860 

00076870 

00076880 

00076890 

00076900 

00076910 

00076920 

00076930 



30 BE( J» I )=BS(NA) 

call MSOLX (NUP*NJC*NVS*CF»8E»201 
C# CALC DERIVATIVES OF F VALOES 

IC=NKB+NKF+NKW 
00 36 IU=1»NUP 
DO 36 IE=1»NVS 
IC*IC+1 

36 XF( IE* IU)“CKV( lO/BETA 
DLA=.625*0L 
0LB=DLA+0L 
DLC=DL+DL 
K=NKB+NKF+NKW 
DO AO IU»1*NUP 
K=K + 2 

PF ( 1 . I U ) = ( CK V ( K- 1 ) -CK V ( K ) ) / DLA 
PF(2* IU)=(CKV(K-1 )-CKV(K+l) )/OLB 
DO Au IE=3*NVS 
K=K+1 

IF( IE.NE.NVS) go to 38 
PF( IE*IU)=0*0 
GO TO AO 

38 PF( IE*1li>-(CKV(K-1J-CKV(K+1))/DlC 
AO CONTINUE 

C* CALC SLOPE OF CAMBER SURFACE 

DO A6 IE*1*NVS 
DO A6 J=1*NJC 
SUMA=0,0 
DO A2 N=2*NUP 

A2 SUMA=CF(N* IE)*CA( J*N-1 )+SUMA 
SUMB=0.0 
C = 0.0 

DO AA N=3*NUP*2 
C*C+l. 

AA SUMB=CF ( N * I E I / < A •*C»*2-1 • ) + SUMB 
A6 CSJ( IE*J)=-SUMA-SUMB 
C* TPS FOR TAN PHI STAR 

CALL TPS (PHT»WPE»NVS»EV*TPTE*TPLE) 

C* CALC INFLUENCE UF OTHER COMPONENTS UN PYLON 

DO 1A7 I£=1*NVS 
DO 1A7 J=1*NJC 
UVL< IE* J)»0,0 
IA7 VVL< IE* J)=0#0 


000769A0 

00076950 

00076960 

00076970 

00076980 

00076990 

00077000 

00077010 

00077020 

00077030 

000770AO 

00077050 

00077060 

00077070 

00077080 

00077090 

00077100 

10077110 

00077120 

00077130 

000771A0 

00077150 

00077160 

00077170 

00077180 

00077190 

00077200 

00077210 

00077220 

00077230 

000772A0 

00077250 

00077260 

00077270 

00077280 

00077290 

00077300 

00077310 

00077320 

00077330 

00077340 

00077350 

00077360 


C 



IFl IDB.ECJ.U) GO TO 148 
DO 47 IE=1*NV3 
DO 47 J=1»NJC 
UVLUEtJ) = 0*0 
VVL( 1E» J>“0*0 

READ (19> {AXn3)fAYn3)*A^(l3).l3 
00 47 IS=1.NKB 

UVL< IE* J)=UVLUE*J)+AX( r3>*CKV( 13) 

47 VVL( IEtJ)=VVLl IE*J>+AV( IS)#CKV( 13) 

148 IF(IDF*EQ.O) GO TO 150 
00 48 IE=1*NVS 
DO 48 J=1»NJC 

READ (20) (AX( 13) *AY( I3)«A4( 13) »I3 
IC*NKB 

00 40 IS=1*NKF 
IC=IC+1 

UVL( IE*J)=UVL( IE*J)+AX( I3)*CKV( IC) 

48 VVL( IE*J)=VVL( IE*J)+AY( r3)«aCV( IC) 

150 IFUOW.EQ.O) GO TO 151 
DO 50 IE=1»NV3 

DO 50 J*1»NJC 

READ (21) { AXU3) »AY( I3)»A4( 13) *13 
iC=NKB+NKF 

UVL( IE»J)=UVL( IE»J)+WOV 
VVL( IE* J )«VVL( IE* J)+WVV 
DO 50 13=1 *NKW 
IC*IC+1 

UVL( IE* J)=OVL( IE*J)+AX( I3)#CKV( IC) 

50 VVL< IE*J)=VVL( IE*J)+AY( I3)*CK,V( IC) 

151 IF(IDP.EQ.U) GO TO 152 
DO 51 IE»l*NVS 

00 51 J=1*NJC 

READ (22) ( AX( 13) »AY( I3) »A4( 13) *I3- 

ic=nkb+nkf+nkw 

UVL( IE*J)=UVL( IE*J)+PUV 
VVL( IE*J)=VVL( IE*J)+PVV 
DO 51 IS=1»NKP 
IC=IC+1 

UVL( IE*J)=UVL( IE» J)+AX( I3)*CKV( IC) 

51 VVL( IE»J)=VVL( IE* J)+AY( I3)*CKV( IC) 


1*NKB) 


1*NKF) 


1 *NKrt) *k»UV*rtVV 


1 »NKP) »POV»PVV 


00077370 
00077380 
00077390 
00077400 
00077410 
>0077420 
•00077430 
00077440 
00077450 
00077460 
£) 0077470 
00077480 
00077^90 
00077500 
00077510 
00077520 
00077530 
000.77540 
00077550 
00077560 
00077570 
00077580 
00077590 
00077500 
00077610 
00077620 
00077630 
00077640 
00077650 
00077660 
00077670 
00077680 
00077690 
00077700 
00077710 
00077720 
00077730 
00077740 
00077750 
00077760 
00077770 
00077780 
00077790 




c 



00077800 



152 

IF( IDN.EQoO) GO TO 55 

00077810 




DO 52 IE=1.NVS 

00077820 




DO 52 J=1*NJC 

00077830 




READ (9) { AX( Ib) »AY( Ib) »A^( Ib) ♦ Ib=l»NKNJ 

00077840 




IC=NKB+NKF+NKW+NKP 

00077850 




DO 52 I3=1»NXN 

00077860 





00077870 




UVL( IE»J)=UVL( lEt J)+AX{ Ib)*CKV( IC) 

00077880 



52 

\/VL( IE»J)=VVU IE*J)+AY( Ib)»CKV( IC) 

00077890 


c* 


CALC, velocities AND PRESSUREb 

00077900 



55 

t>S8 = 16.*PHT 

00077910 




0SQ = BETA*-»2 

00077920 




DO 80 IE=1»NVS 

00077930 




C1=PS8/XTLV( IE) 

00077940 




C2=Cl/4. 

00077950 




DTP=TPTE( IE)-TPLE( IE) 

00077960 




DO 80 J»1»NJC 

00077970 




UVB=UVL< IE» J)/6ETA 

00077980 




W8=VVL( IE* J) 

00077990 




TP=TPLEI IE)+OTP*XOCP( J) 

00078000 




TPXsTP*TP 

00078010 

OO 



TP1=1.+TPX 

00078020 

o\ 



TP2=SQRT(TP1) 

00078030 




TPU=TP2*(UV( IE*J)-OVP( IE*J) )+l. 

00078040 




TPV=TP2*( VV( IE*J)-VVP( IE*J) )+l. 

00078050 




DZU=TPl*»TbJ< IE»J)~CbJl I£*J) )**2 

00078060 




D2.L = TPl*lTbJ( IE*J)+CbJ< IE*J) ) »*2 

000780 70 




DSU=SQRT ( l.+DZU) 

00078080 




DSL*5QRT{ l.+DZL) 

00078090 




CPS=0. 

00078100 




vvs=o. 

00078110 




DO 58 N=2.NUP 

J0078120 




CPS=CPS+XFI IE*N)*TA( J»N) 

00078130 



50 

VVS=VVS+PF( IE*N)*TB( J»N) 

00078140 




CP1=XF( IE*1)*TA{ J.l) 

00078150 




CPO( IE*J)=Cl*(CPl+CPb) 

00078160 




UVb=C2*l CP1*TPU+CPS ) 

00078170 




UVU( IE*J) = (OV( IE*J)+UVb+( l.-»-TPX*DbU)/ IPl )/DciU+uv8/DbU 

00078180 




UVL< IE. J)=<UV( IE. J)-UVb+a.+TPX*ObL> /TPl )/DbL+UVB/DSL 

00078190 




VV1=2.*PF( IE. 1 )*TBl J. 1)-C2*CP1*TP 

00078200 




VVSaVVl*TPV+2.*VVS-C2*CPb*TP 

00078210 




TTP=TP/TP1 

00078220 



VVUl IE»J>+VVb-T rp*( l.-OiU) ) /Oi>U*BET A+WB/DbU 

WlME>J) = I VV( IE*J)-VVi>-TTP*l I.-OSlJ > /DSl*BE f A+VVD/OSL 
CPU! IE»J)=l#-aVUt lEi J)**2-VVU( IE*J)**2 
CPL< IE*J) = 1 .-UVlUE» J)**2-VV/L( tE*J)»*2 
compressibility EFFECTS 

if(>imach.le*o.j) go ro is 

XMS=XMACH#*2 

XM1*1.42857/XMS 

XM2“0.2*XMS 

IFtXMACH.GT.O.ul) GO TO 62 
CPU( IE*J)=CPU( I£»J)+XMS»CPU( IE*J) /A.U 
CPL( IE*J)=CPLUE»J)+xMS*CPL( IE*J)/4«0 
GO TO 70 

CPU( ie»J)=XMl*( l*+XM2*CPu( 1E*J) )**3.5-XMl 
CPU IE*J)»XM1*( 1*+XM2*CPH lEtJ) )**3*5-XMl 

SINP=TP/TP2 

COSP*l./TP2 

CP2=COSP*»2 

SP2*SINP**2 

SCP=SINP*COSP 

cpma=xmach*cosp 

CPM2=CPMA**2 
SRCM=SORT( 1.-CPM2) 

CSR«*5#( l.-SRCM) 

CPU( IE» J)*CPU( IE*J)*ijRCM/( 1.-CPU( IE*J)*CSR) 

CPL( IE*J)=CPL(IE*J> »SRCM/U.“CPL< IE«J)*CSR) 

BWU = S0RT( l.-vJPM2*( U-CPU( IE*JJ*CPMA) ) 

BWL=S0RT( 1.-CPM2*( I.-CPLI IE*J)*CPMA) 1 
0VMU=UVt IE»J)+UVS+UVB 
DVML=UV( IE» J)“UVS+UVB 
DVTU=(VV( IE»J>+VVS)#8ETA+VVB 
DVTL=TVV( IE*J>-VVS>»6ErA+VVB 
SBDU=SQRT(BWU**2+D<^0) 

SBDL=SQRT(BWL**2+DZU 

UVU( IE*J) = ( BWU*CP2 + (8SQ*DVMU*CP2-BETA*DVTU#SCPI /SRCM )/S8£>U 
f +(l*+DVMU)*SP2+OVTO*SCP 

■JVL( I E » J I » { BWL*CP2+ ( BSQ*DVML»CP2-BET A*0VTL*SCP ) / SRCM ) /S80L 
+{ l.+DVML)*SP2+OYTL»SCP 

VVU( IE» J) *- l8V»u#SCP+< BSQ#DVMU*SCP“B6TA*0VTU»SP2 ) /SRCM )/SBDU 
+« I .+DVMU J*ScP+DVTu*CP2 

VVlJ IE*J) =-(BWL*SCP+( 8SQ*DVML«SCP-BETA*0VTL*SP2) /SRCM )/S80L 
+ ( l.+DVML)*SCP+D\/TL*CP2 


00078230 

000782A0 

00078260 

00078260 

00078270 

00078280 

00078290 

00078300 

00078310 

00078320 

00078330 

00078340 

00078350 

00078360 

00078370 

00078380 

00078390 

00078400 

00078410 

00078420 

J0078430 

U0078440 

00078460 

00078460 

00078470 

00078480 

00078490 

00078500 

00078510 

00078520 

00078530 

00078540 

00078550 

00078560 

00078570 

00078500 

00078590 

00078600 

00078610 

00078620 

00078630 

00078640 

00078650 



n n n 



CPL( IE»J) 

=1.-UVL 

i IE. J)*#2-VVlI 

IE*J)**2 


CPUi lE.J) 

==1.-UVU 

( IE. J)**2-VVU( 

IE. J)**2 


IFIXMACH. 

GT.O.Ul 

) GO TO 72 





CPU( IE*J) 

=CPU( IE 

.J)+XMS#CPU( 

IE 

.J)/4. 

0 


CPU IE» J) 

=CPL( IE 

.J)+XMS*CPL( 

IE 

.J) /4* 

0 


GO TO 78 






72 

CPU( IE. J) 

=XM1*{ 1 

•+XM2*CPU( IE 

»J 

) )**3. 

6-XMl 


CPL< lE.J) 

=XMl*l 1 

•+XM2*CPL< IE 

» J 

) l»*3. 

5-XMl 

78 

CPN( IE. J) 

=CPL( IE 

,J)-CPU( IE. J 

) 



80 

CONTINUE 








PRINT 






90 

1 

100 

120 


200 


210 

220 

C 

300 

♦DECK 


WRITE (6»100) 

IS=PVPC+1.0 
DO 90 lE^lS.NVS 

WRITE (6»120) EV( IE) » UOCP( J) tUVUnEtJ) tUVL( IE*J) »VVU( IE*J) t 

VVL( IE»J) •CPOl 1E»J) »CPU IE»J) tCPNIIEtJ) ♦CPOl IE» J ) * J=1 »NJC) 
FORMAT (5AH1 »PYlON NON-LINEAR VELOCITY AND PREbbURE COEFFICIENTS 
FORMAT (8HU F.TA =»F7*4/1H *7X * 3HX/C • 7X*6HU/V UP»6X»7HU/V LOW»5X* 
L 6HV/V UP»6X»7HV/V L0W*6X«5HCP UP*7 x*6HCP L0W»6X.6HCP L-U. 

I 5X*7HCP NETl/ ( IH 

GO To 300 

CALC LINEAR 

PSa= 16 .#PHT 
DO 220 ie=l»NVS 
C1*PS8/XTLV( IE) 

DO 220 JslfNJC 

CPS*0#0 

DO 210 N=l*NOP 
CPS=CPb+XF( IE*N)*TA( J»N) 

CPU( IE.J)=C1*CPS 


♦9F12.S) ) 

PRESSURE COEFFICIENTS AND SKIP RECORDS 


return 

END 

PLOAO 

SUBROUTINE 


PLOAD « PCLfPCDfPCM) 

CALC pylon load PARAMETERS 


C 

C 


COMMON/ DAT/ DA(5O00) 
DIMENSION PJCm 


00078660 
00073670 
0007868o 
00078690 
00078700 
00078710 
00078720 
00078730 
J0078740 
00078760 
00078760 
00078770 
00078780 
00078790 
00078800 
00078810 
) 00078820 
00078830 
00078840 
00078850 
00078860 
00078870 
00078880 
00078890 
00078900 
Q0078910 
00078920 
00078930 
00078940 
00078950 
00078960 
00078970 
00078980 
00078990 
00079000 
00079010 
00079020 
00079030 
00079040 
00079050 
00079060 
00079070 
00079080 



UJ 

'S 


equivalence (DAil)*AR) * J DA C 2 ) »SPAN ) ♦ C DA < 3 ) *XMAC > 00079090 

1*(DA{7) *XCG) »(DA( 19) tPVPC) ♦ ( DA ( 25u7 ) »PNVC ) t < DA ( 2512 ) *PJC) 00079100 

2*IDA(2492) »PDA) . ( DA( 2501 ) »POX ) 00079110 

C 000/9120 

COMMON/CRG/ PltPUtRC 00079130 

COMMON/CPP/ HPS*NVSH*NVT *DL tNEVP » 2C0N * YCON ♦ NVC *N Vb »N JC *NUP 00079140 


C 


C 

c» 


c 


c 


c 

c* 


LARGE 

DM1 (75130) 

♦EV(22) 

»XLV(22) 

*XfLV(22) 

•DM2(219) 

1 

.XR140U) 

»YR(40u) 

*ZR(4uU) 

»CFI (20) 

»CFJ(20) 

2 

*DM3( 906) 

tl6J( 20»20) 

*DM4( 1820) 

♦B6( 360) 

*DM5 ( 4950) 

3 

»D66(20«20) 

tDM6( 2860) 

*CPU(2U*20) 

♦CPL(20»2U) 


4 

♦ THK 22) 

»CNI( 22) 

♦CMI (22) 

♦CDI (22) 

»6TH( 20) 

5 

»TH0(20) 

♦CNO( 20) 

♦CM0(20) 

tCDO(20) 

• XCCP(2(J) 

6 

♦EV0(20) 

*XLE( 20) 

»CNCC(20) 

♦CMCC(20) 

♦CDCC( 20) 


CALC 0S/06LE OF ROOT 6ECTI0N 




D5LE=i>QRT( (YR(l)-YRl2))**2+(4R(ll-ZR(2n**2l 

DO 10 106=1 »NVb 

IEP=IJ3-NEVP 

Do 10 IJC=1»NJC 

oss( ros* iJC)=i.u 

IF( IEP*LE.O) GO TO 10 

IX-PJC( IJC) 

IC=4*IX+IEP 

DY=(YR( ICJ-YR( IC+1)+YR< IC-4)-YR(IC-3) )/2* 

D2={ZR< IC)-2R( IC+l)+2R{ IC-4 ) -ZR ( lC-3 ) J/2* 

066(1 J6» IJC)=6QRT{0Y**2+DZ**2) /dole 
lU CONTINUE 

CALC CH0RDWI6E THETA6 

DTH=PI/PNVC 
C0N6=.5*AR/6PAN*DTH 
THO ( 1)=0TH 
DO 20 I=2iNVC 
20 THO( I )=THO( I-D+OTH 

THI(1»=0,0 
DO 30 IC*l»NJC 
THU IC+1 )=PJC( IC)*DTH 
30 STH( IC) = SIN( THI < IC+1 ) ) 

NJI=NJC+2 

THI(NJI)=PI 

CALC LiFTtDRAG AND MOMENT C0EFFICIENT6 


00079150 

00079160 

00079170 

00079180 

00079190 

00079200 

00079210 

00079220 

00079230 

00079240 

00079250 

00079260 

00079270 

00079280 

00079290 

00079300 

00079310 

00079320 

00079330 

00079340 

00079350 

00079360 

00079370 

00079380 

00079390 

000T9a00 

00079A10 

00079420 

00079430 

10079440 

00079450 

00079460 

00079470 

00079480 

00079490 

00079500 

00079510 



IV=NVS-PVPC 

NA=0 

<:Nn 1 )=o,o 

CMK1»=0,0 
CDI ( 1 )=0,0 
CNI (NJI >=0.U 
CMUNJI )=0«0 
CDI (NJI) =0*0 
C 

DO 90 IE»1»NV3 
IFUE.GT.PVPC) GO TO 40 
NA=NA+NJC 
GO TO 90 

40 DO 70 IC=1»NJC 
NA=NA+1 

C CALC TAN ALPHA AND CP NET 

IF(DA(3000).EQ#0.0) GO TO 50 
TAU=-TSJ( IE*IC)+8S(NA) 

TAL*TSJ( IE*IC1+BS(NA) 

CPN=CPL( IE»IC)-CPU( lE.lC) 

CPD=TAL*CPL( IE*IC)-TAu*CPu( 1E*1C) 

GO TO 60 
C 

M 50 CPN=CPU( IE»IC) 

CPD=BS(NA)*CPU( IE*1C) 

60 IX*PJC(IC) 

CPM*CPN#CFJ( lX+1 )»XTLV( IE) 

DST=OSS( IE» IC)»STH( IC ) 

CNl ( IC+l )=OST*CPN 
CMK 1C+1)*DST*CPM 
70 CDK IC+1 )=DST»CPD 
C CH0RDWI6E EXPANSION 

CALL CODIM ( THI *CN I *NJI *THO»CNO*NVC) 
CALL CODiM ( THI »CMl »NJI • IHO »CMO*NVC) 
CALL CODIM (THI fCDifNJi *TH0*CD0»NVC) 

C SUMtCN»CM and CO CHORDWISE 

CN=0*0 
CM=0.0 
CD=0*0 

DO 80 I=1*NVC 
CN=CN+CNO( I ) 

CM=CM+CMO( I ) 

80 CD=CO+CDO(I) 


00079520 

00079530 

00079540 

00079550 

00079560 

00079570 

00079580 

00079590 

00079600 

00079610 

00079620 

00079630 

00079640 

00079650 

00079660 

00079670 

00079680 

00079690 

00079700 

00079710 

00079720 

00079730 

00079740 

>0079750 

00079760 

00079770 

00079780 

0007.9790 

00079800 

00079810 

00079820 

00079830 

00079840 

00079850 

00079860 

00079870 

00079880 

00079890 

00079900 

00079910 

00079920 

00079930 

00079940 



C iET PARAMETERS IN ASCENDING ORDER 

EVOI IV)=EV( IE> 

CC=CONS*XTLV( IE > 

CNCC( IV >*CC*CN 
CMCC( IV)=-CC*CM/XMAC 
COCCI IV)=CC*CD 
XtEUV) = XLVlIE» 

IVsIV^l 
90 continue 

C CALC total pylon LIFT »DRAG AND MOMENT 

PCL*0*0 
PCM=0*0 
PC0=0.0 
NEE=NVS-PVPC 
CDA=COSI 19o,-PDA)/RC) 

C 

DO llU I=lfNEE 

IFIABSICNCCI I ) » *LT •0*000001 ) CNCC 1 1> =o *000001 
XCCPt I ) =-CMCC ( I > /CNCC ( I ) 

XARM=XCG-POX-XLE( 1 ) 

CMCGaCMCCn M-XARM*CNCC( n 
CNX=CNCC( n*DL 
CMX=CMCG*DL 
CDX=CDCC< I )*DL 
IF(1*NE*NVS) GO TO 100 
CNX=CNX/3* 

CMX=CMX/3* 

CDX=CDX/3* 

100 PCL=PCL+CNX*CDA 
»CM=PCM+CMX 


00079950 

00079960 

00079970 

00079980 

00079990 

00030000 

00080010 

00080020 

00080030 

00080040 

00080050 

>0080060 

00080070 

00080080 

00000090 

OOOdOlOG 

00080110 

00080120 

00080130 

00080140 

00080150 

00080160 

00080170 

00080180 

00080190 

00080200 

00080210 

00080220 

00080230 

00080240 


C* 

C 


C 


C 


110 PCD=PCD+CDX 00080250 

iF( ABS(PCL) *LT,O.OOOUU1 ) PCL=0. 000001 00080260 

PXC=-PCM/PCL 00080270 

PRINT OUTPUT 00080280 

00080290 

write 16*300) « I *EVO( I ) *CNCC‘ I) *CDCC( n »CMCCI I ) *XCCP( n * I=l*NEE) 00080300 
300 FORMAT (1H1*20X*18H ** PYlON LOADS #*/lH »24X»3HETA» 12X*6HCNC/CA* OOO8O3IO 
1 9X»6HCDC/CA*9X*6HCMC/CA*9X»6HX/C CP/(iH ♦ 1 1 5 » 5F i 5 . 5 ) ) 00080320 

. 00080330 

WRITE (6*310) PCL*PCD*PCM*PXC 00080340 

310 FORMAT (1H0.2UX»23H TOTAL PYLON LOADS » 39X*3HPCL *12X*3HPCD00080350 

1 »12X*3HPCM*12X*3HX/C/ IH *30X»4F15*5) 00080360 

00080370 



return 

END 

♦DECK SFC 

SUBROUTINE SFC <NETA»ETA) 

C 

C* CALC MATRIX F 

C 

COMMON/DAT/ DA(5UOOJ 
C 

DIMENSION WdJ 
C 

LARGE ETA(l) 

C 

equivalence (DA(1285>*W) *( 0A( 12811 ♦ WNW ) 

C 

COMMON/CRG/ P I »P I A *RC ♦BET A 
COMMON/CFG/ DFl ( 10 ) ♦ NK8 tNKF 
COMMON/CPW/ DW1(9)^NU*NW 

LARGE CKV(IOOO) ♦BOU(2000> ♦FUS ( 25000 ) *FAN ( 23700 ) 

1 fWlNl23430) ♦PYLt6U61) tCELdTOO) 

2 .XF(51.10» fSREISl) ♦S(51»10J 

C 

DO 10 J=ltNETA 
10 SRE< J)=SQRTI 1*-ETA( 

IF(WNW.NE*0*OI GO TO 500 

<=NKB+NKF 

DO 20 J=ltNU 

DO 20 NE=1*NETA 

K*K + 1 

20 XF(NEtJ)*CXV(K)/BETA 
GO TO 600 
500 DO 550 I=lfNW 
L=W(I) 

IF(L.LT.IOOO) GO TO 510 
CALL PFUNC U *NETA^ETA»WfS) 

GO TO 550 

510 DO 540 J=1^NETA 

IF(ETA( J)*GT.0.00001) GO TO 518 
S(JfI)=0*0 

if(l*eq.o) s<jtn = i«o 

GO TO 540 

518 S( n=SRE< JI*ETAt J)**L 
540 CONTINUE 


00080380 

00080390 

00080400 

00080410 

00080420 

00080430 

00080440 

00080450 

00080460 

00080470 

00080480 

00080490 

00080500 

00080510 

00080520 

00080530 

00080540 

00080550 

00080560 

00080570 

00080580 

00080590 

00080600 

00080610 

00080620 

00080630 

000806A0 

00080650 

00080660 

00080670 

00080680 

00080690 

00080700 

00080710 

00080720 

00080730 

00080740 

00080750 

>0080760 

00080770 

00080780 

00080790 

00030800 



ro 

ui 


550 continue 
C CALC F MATRIX 

560 00 575 N£»1*NETA 
K=NK8+NKF 
')0 572 J = 1»NU 
XF(NF»J)*0.0 
00 570 I=l>Nrt 
K=K+l 

570 XF<NE»J)=XF(NE»J)+C<V(K)*6<NE*I ) 

572 XFlNEt J)=XF(NE» J)/BETA 
575 CONTINUE 

soo return 

END 

«DECK TPS 

SUBROUT INE TPS ( HWS*i« T ♦NEP* EP » TPI E » TPLE ) 

C 

C* *TPS* CALC* leading AND TRAILING EDGE TAN PHI STAR 
C 

LARGE WT(1) *EPU) *TPTE(1) tTPLEl 1» 

C 

large DM1 (90000) 

1 *YB(30) tCBOO) *PBL(30) *PBT(3U) 

C 

c* calc* yb»cb and phi from planform 

IC'O 

DO 10 L=1*59*3 
IC»IC+1 

YB< IC)=HWS*WT(L) 

CB( IC)*WT(L+2)-wT(L+1 ) 

IF(WT(L) *GE*1*U) GO TO 20 
DY*HWS#<WT)L+3)“WT(L> ) 

PBL( IO=ATANnwTlL+4)“Wl iL+1) )/0Y) 

10 PBTnC) = ATAN( (WT(L+5)-*WTIL+2) »/0Y) 

20 PBL( IC>=~P8L( IC-l) 

PBT( IC)=-PBTnC~l) 

NB*IC 

c» calc* tple and TPTE 

DO 110 IP=1.NEP 
YP»HWS*EP( IP) 

DO AO IB=2»NB 
IF(Yp,uE*YBl IB) ) GO To 50 
AO CONT INUE 
50 IX=IB 


00080810 
00080820 
00080830 
0O0808A0 
00080850 
00080860 
00080870 
00080880 
00080890 
00080900 
00080910 
00080920 
00080930 
000809A0 
00080950 
00080960 
00080970 
00080980 
00080990 
00081000 
000810 10 
00081020 
0008lo30 
0008I0A0 
00081050 
30081060 
>008l070 
00081080 
00081090 
00081100 
00081110 
00081120 
00081130 
0008UAO 
00081150 
00081160 
00081170 
00081180 
00081190 
00081200 
00081210 
00081220 
00081230 



IF ( IX, gT ,2 » GO TO 60 
APL=0, 

APT=0. 

GO TO 70 

6U APL={ PBLl IX-n+PBLnx -2 n/ 2 . 

APT= (PBT( IX-1 >+P8T ( IX-2 ) )/ 2 , 

70 OY=YB( rX)-YB( IX-1) 

IF(CB( IX-1 ) .GE.OY) GO TO 90 
ALL“PBL< IX-1) 

ALT=PBT( IX-1) 

YPC*YB( IX-1 )+CB( lX-1) 

IF( YP.GT.YPC) GO TO 80 
C=CB( IX-1) 

YB£=YB( IX-1 ) 

GO TO 100 
80 C=DY-CB{ IX-1) 

YB£=Y8( IX) 

apl=(pbl{ IX-D4-PBU ixn/2* 

APT=(PBT( IX-1)+PRT( IX) )/2, 

GO TO 100 
90 C=DY 

Y8E«YB(IX-1) 

^ AUL=IPBL( lX-1 )+P8Lt IX) )/2. 

M ALT = <PBTnx-l)+PBTUX))/ 2 . 

100 AYC=6.2831S5*A861( YP-YBE)/C) 

IF ( ALL.NE.0,0 ) GO TO 102 

tly=ayc 

GO TO 104 

102 TLY=TAN( ALL )/ALL*AYC 
104 SLB=SQRT( 1 ,+TLY#»2 )-TLY 
CL*COS{ALL) 

CLP=COS(SLB*APL) 

GL2=C0S ( SLB*ALL ) »*2 

TPLE< IP ) =SqrT<CL2-CL**2*CLP**2 )/(CL*CLP) 
IFIALT.NE.O.O) go TO 106 
TLY=AYC 
GO TO 108 

106 TlY=TAN( ALT )/ALT*AYC 
108 SLB=SORT( 1,+TlY**2 )-TLY 
CL=COS( ALT ) 

CLP=COS( SLB*APT ) 

CL2*C0S(SLB*ALT)**2 

110 TPT£{ IP)=SQRTICL2-CL**2*CLP#*2)/(CL*CLPJ 


00081240 

00081250 

00081260 

00081270 

00081280 

00081290 

00081300 

00081310 

00081320 

00001330 

00081340 

00081350 

00081360 

00081370 

10081380 

00081390 

00081400 

00081410 

00081420 

00081430 

00081440 

00081450 

00081460 

00081470 

00061480 

00081490 

00081500 

00081510 

00081520 

00081530 

00081540 

00081550 

00081560 

00081570 

00081580 

00081590 

00081600 

00081610 

00081620 

00081630 

00081640 

00081650 

00081660 



return 

END 

♦DECK SPP 

SUBROUTINE SPF 
C 

C* 

C 


C 

c* 


♦SPF* calc, THE DERlVATIVEi> OF F VALUES 


COMMON/OAT/ DA(5000> 
DIMENSION W(10) 


equivalence 

It (NEP»NJS) 


*WD(25) 
(DA( 1285) tw) 


tiOAi 1281 ) tWNM) t(DA( 193U) tMO) 


COMMON/CRG/ P I *P 14 *RC *BET A 
COMMON/CFG/ DFl ( 10 ) tNKBtNKF 
COMMON/CPW/ HrtStNTitNTOtDLl *OLOtNE2tNE3 
1 tNEStNTBtNUtNrttNVCtNVStNJCtNJs 

large CKVUOOO) ♦BOu( 2000) »FUS(25uU0) *FAN( 23700) 

1 tOMlUTOS) *£P(30) tDM2(21694) tPYL<6U61) »CEH 3700) 

2 »0M3(510) tSRE(51) 

3 »0M4(3330) ,PF(30*10) *EPO t 30 ) »ES ( 4 ) »CS ( 4 ) tS I 30 » 10 ) 

CALC SLOPES OF SPANWISE LOAD SHAPES 
IF(WNW,EO.O.O) GO To 170 
IC = 1 

00 150 IW=1*NW 
L=W(IW)+1.1 

IF(L,GT.1000) GO TO 30 

DO 20 IE=ltNEP 
EPL=EPt I£)**L 
S< IEtIrt)*-EPL/SRE< IE) 

IF ( IWtEQtl ) GO TO 20 

SnE,Irt)=S( IEtlW)+SREUE)*W( IW)*EPO( IE) 

20 EPOt IE)=EPL 
GO TO 150 

30 IF(WD< IC) tEQ.OtO) Go TO 60 
ES(1)=WD( IC+2) 

ES(2)=WDl IC+3) 

CS(1)=1, 

CS(2)=^1* 


00081670 
00081680 
J008169o 
00081700 
00081710 
00081720 
00081730 
00081740 
00081750 
00081760 
00081770 
00081780 
00081790 
00081 BOO 
00081810 
00081820 
00081830 
00081840 
00081850 
00081860 
00081870 
00081880 
00081890 
00081900 
00081910 
00081920 
00081930 
00081940 
00081950 
00081960 
00081970 
00081980 
00081990 
U0082000 
00082010 
00082020 
00082030 
00082040 
00082050 
00082060 
00082070 
>0082080 
00082090 



GO To 90 
60 ETAB=WD(IC+1) 

RI=WD( lC+2) 

RO«WD( IC+3) 

ESI 1)=ETAB-RI 

ESI2»=ETAB 

ES(3)=ETA8+R0 

EB1*1.-ETAB 

ER0»E81“R0 

RR*lRI-fRO)/(RI*RO) 

IF! ESI 1 ) .GE#0,0) GO TO 70 

ESI 11 = 0.0 

ESIA)=0.0 

CSI 1J=1,/RI 

CSI2)=“RR*EB1 
CS(3j = (RR-CSUn*ER 0 

CS(4>=1.-ET AB/RI 
NP»4 

60 TO 100 

70 IFIERO.LT.O.OI GO TO 8U 
CS(1)=EB1/RI+1. 

CSI2)=-RR#E81 
CSI 3> =EB1/R0-1 • 

NP=3 

GO TO 100 

80 CSI1)=EB1/RI+1, 

CSI2»=-CSI1) 

90 NP=2 

100 Do 145 IE=1 .mEP 
SI lEt IW) =0.0 

eta»ephe) 

IF I EtA.EQ. 0.0 > Go TO 145 
ES2*2.»ETA/SREI IE) 

DO 140 K=1»NP 
AES« ACOSIESIK)) 

SES*SQRT 1 1#~ESHU**2) 
IFISES.EO.SREI IE) ) SES=SES+.00000 1 
E1=ESIK)*SREI IE) 

£2=ETA *SES 

E=ABSI IE1-E2)/I E1+E2H 

IFIIC.EO.4) go to 110 
IF I WDI IC) .EQ.O.O ) GO TO 120 
110 PS=IAL0GI l./E»-ES2*AES)/PI 


00082100 

00062110 

00082120 

00082130 

00082140 

00082150 

00082160 

00082170 

00082180 

00082190 

00082200 

00082210 

00082220 

00082230 

000822A0 

00082250 

00082260 

00082270 

00082280 

00082290 

00082300 

000 o^: 3 lO 
00082320 
00082330 
00082340 
00082350 
00082360 
00082370 
00082380 
00082390 
00082400 
00082410 
00082420 
00082430 
000824A0 
00082450 
00082460 
00082470 
00082480 
00082490 
00082500 
00082510 
00082520 



GO TO 140 

120 IF(ABS(ES<K)-ETA),GT, 0.000001) GO TO 130 
EXs-ES(K1*AL0G(ES<<)*»2 > 

GO TO 135 

130 EX=ES(lO*ALOG(EI+ETA*AL06tABS< ( SES+SRE ( IE ) )/<SES-SRE( IE) ) > ) 

135 PSs(EX+ES2*(ES(K)*AES-SESn /(PI*( l.-ES<fC) > ) 

140 SUE*IW)«Si lE.lWJ’^'CStKl^PS 

145 continue 
IC»IC+5 

150 CONTINUE 

C4 CALC THE DERIVATIVES OF F VALUES 

00 160 IE*1*NEP 
K*NXe+NICF 
DO 160 IU>^1»NU 
PF( IE# IU»-0#0 
DO 160 IW»1#NW 
X»K + 1 

160 PF( IE#IU>»PF( IE#IU)+CK.V<K)*S< IE#IWJ 
GO To 220 

C find SLOPE OF COEF. IF SPANWISE DISCRETE VORTEX 

170 DLA=*.625»DL0 
OLB*OLA+DLO 
NE7*NE3+4 
NE6=NE3+3 
K»NXB-»-NKF 
DO 214 IU=1*NU 
K®K+2 

PF(l#IU)a(CKV(K-l)-CKV(K> )/DLA 
PF(2*IU) = (CKV(K-'1)“CKV(K-H) )/DLB 
00 212 IE»3#NJS 
K*K + 1 

IF( lE.NE.NJS) GO TO 200 
PF( IE* ru »=0.0 
GO TO 212 

200 IFUE-NES) 210*208»202 

202 IFt IE.NE.NE7V GO TO 204 

PFl IE*IU»=KKVlK)~CKV(K + l n/OLl 
GO TO 212 

204 PFUE»IU) = (CKVlK-l)-CKVlK+in/<OLl+DLl) 

GO TO 212 

208 PF< IE# IU)=(CKV< K-1 )-CKV(K ) 1/DLO 
GO TO 212 

210 PF(IE*IU) = {CKV(K-l)-CKV(K+in/(DLO-»-OLO) 


00082530 

00082540 

00082550 

00082560 

00082570 

00082580 

00082590 

00082600 

00082610 

00082620 

00082630 

00082640 

00082630 

00082660 

00082670 

00082680 

00082690 

10082700 

00082710 

00082720 

00082730 

00082740 

00082750 

00082760 

00082770 

00082780 

00082790 

00082800 

00082810 

00082820 

00082830 

00082840 

00082850 

00082860 

00082870 

00082880 

00082890 

00082900 

00082910 

00082920 

00082930 

00082940 

00082950 



non 


ro 

03 


212 CONTINUE 
214 continue 
220 RETURN 

end 

*DEOC IDRAG 

SUBROUTINE IDRAG ( BCL »ECL »CDI ) 
CALC INDUCED DRAG 


C 

c 


c 


c 

c* 

c 


c* 


c 


c 

c 


COMMON/ DAT/ DA (5000) 

equivalence (DA(1)»AR) *(0A(2) »SPAN» 


COMMON/CRG/ PI 
COMMON/CFG/ IDB*IDF 

COMMON/ CP W/ HWS*NTI *NTO*DlI *DL0*NE2 »NE3 


LARGE 

1 

large 


CMH 64496 )»ET( 52 ) . CM 2 ( 24712 ) *CNCC 0 ( 52 ) .CM 3 U 04 ) 

*CLS( 104 ) *SS 1104 ) ♦C( 102 ) fCM 4 ( 2086 > 

CMS ( 10 B 12 ) »EOC( 1 U 2 ) *Q( 102 ) ♦P(l 02 » 102 ) 


INITIAL 

^2=SPAN**2 

RAREA=B2/AR 


NVT=nE2 

lF(10B.NE*O) NVT=NVT+1 
IF(IOF.Ne*0) NVT=NVT+1 
IV=NVT , 

NEF NE2 s£(;xI0N LOADS AND ABSCCISA ON LEFT SIDE 

DO 60 I=1*NE2 

1F( IOB.EQ*0) GO TO 10 

IF(I*NE*1> GO TO 1^ k RAi?i2A 
IV»IV-1 


10 IF(10F.EQ*01 GO TO 40 

TF(I-NEF) 20*30»4Q /j cw cCW4?(i.) DlI * HRA 

60 TO 50 

-* 30 C.i-5 (iv)^ FCL* HR.A 

C.uS Cxv)* MEIA 

IF(I.EQ*NE2) CLS( IV) =CLS( lV)/3* 


00082960 

00082970 

00082980 

00082990 

00083000 

)00830l0 

00083020 

00083030 

00083040 

00083050 

00063060 

000830*70 


00083080 

00083090 

00083100 

00083110 

00083120 

00083130 

00083140 

00083150 

00083160 


00083170 

00083180 

0008319^ 

00083200 

00083210 

00083220 

00083230 

00083240 

00083250 

00083260 

00083270 

00083280 




00083290^^3^, 

00083300 

00083310 

00083320 

0008333Q_^,3,5: 

00083340 

0008335C ^ a 

00083360 

0008337^ 5 , 3 ^.. 5 - 

00083380 



u> 

ro 


50 IV=IV-1 
60 CONT INUE 


C 


C* 


C* 

C* 


C# 


nvt*nvt-i 

DO 70 I«l*NVT 
70 EOCn )»ll*“ET(n )/2. 

SETUP SECTION LOADS AND 


ABSCCISA 


ON RIGHT SIDE 


NN*NVT+NVT 

IV«NVt 

IS=NVt+l 

DO 80 I*IS*NN 

E0C( n = l*-EOCC IV» 

CLSn>l>=CLS(TV) 

IVaIV-1 

CALC EMINTON“LORO Q AND P MATRICES 

CALL EMLOP (NN» 

integrate SECTION LOADS CURVE 


NX=NN+1 

ssm»CLS(i) 

DO 90 I=2*NX 

90 ss( n=ss( i-i)+CLsm 

DSS=SS(NX1 

CALC induced drag COEF 


DO 100 N=1»NN 
100 C{N)=SS<N)-DSS*0<N) 
C 

SUMB=0*0 
DO 120 M=1»NN 


SUMC=0*0 
DO 110 N*l*NN 
110 SUMC=SUMC+PtM*N)*C(N) 

120 SUMB=SUMB+SUMC*C<M) 

CDI =( 4«*DSS**2/P I-«-SUMB*PI >/B2**25/RAREA 


C 


RETURN 

END 

•DECK EMLOP 

SUBROUTINE EMLOP iNN) 


C 

C * 

C 


COMPUTES COEFFICIENTS FOR EMLORD EQUATION 


00083390 

OOO83A00 

00083410 

00083420 

00083430 

00083440 

000834S0 

00083460 

00083470 

00083480 

00083490 

00083500 

00083510 

00083520 

00083530 

00083540 

00083550 

00083560 

00083570 

00083580 

00083590 

00083600 

00083610 

00083620 

00083630 

00083640 

00083650 

00083660 

00083670 

00083680 

00063690 

00083700 

J0083710 

00083720 

00083730 

00083740 

00083750 

00003760 

00083770 

00083780 

00083790 

00083800 

00083810 



Ann 


COMMON/CRG/ PI 


DUM< 102624) 

X0CH02) »Q(102) »pi 102*102) »Bl 102»102) 

START 

setup MATRIES p and b 
DO 100 N=1*NN 
X=XOClN) 

XVal,-2.»X 

ANG»ATAN2<30RTU.-XV**2) »XV) 

OrN)=(ANG-2.*XV*SQRT(X-X»*2))/PI 

DO 70 M=N*NN 

Y=XOC(M) 

IF(M-N) 30*20*30 
20 B(M*N)»1*0 
GO TO 40 
30 B(M*N)“0*0 
40 E=(X-Y)**2 

El*X+Y-2**X*Y 

E2*2**SQRT(X*Y*ll*-X»*<l*“Y) » 

IF(E) 60*50*60 
50 P(M*N)=E1*E2 
GO TO 70 

60 ptM*N)*E/2.*ALOG( (E1-E2)/(E1+E2) »+El*E2 

70 CONTINUE 
NK=N-1 

IF(NK) 100*100*80 
80 00 90 M*1*NK 


large 

large 

C 

C * 

c * 


E»P(N*M) 

P(M*N » = E 
90 B(M#N)=0.0 

100 continue 

C * SOLVE simultaneous 

CALL MSOLX (NN*NN*NN»P*B*102) 
RETURN 
END 

♦deck SKINF 

subroutine SKINF 


EQUATIONS FOR COFFICIENTS 


calc SKiN FRICTION DRAG 


COMMON/ DAT/ DA (5000) 


00083820 

00083830 

00083840 

00083850 

00083860 

00083870 

00083880 

00083890 

00083900 

00083910 

00083920 

00083930 

00083940 

00083950 

00083960 

00083970 

00083980 

00083990 

00084000 

00084010 

)0084o2o 

00084030 

00084040 

00084q50 

00084060 

00084070 

00084080 

00084090 

00084100 

00084110 

00084120 

00084V30 

00084140 

00084150 

00084160 

00084170 

00084180 

00084190 

00084200 

00084210 

00084220 

00084230 

00084240 



n n no n n n ri r» on 


C 

DIMENSION XTRLtll *TCM(1) 

C 

equivalence (DAtlltAR) 

1*(0A(4980> tTFS) . ( DA C 498 1 ) *PFS ) 
2*(DA(4984).XKS) ♦{DM49851 ♦TAU). 

3t(DA(5) »TLF) * ( DA { 4005 1 ♦ TLB ) 


*(DA(2> ♦SPAN) ♦iOA{4> iXMACH) 
♦(DA (4982) ♦CKAF) ♦ IDA (4983) ♦TRIO) 
♦ (DA (4990) ♦XTRU ♦ ( DA ( 4995 ) ♦ TCM ) 


COMMf)N/CSF/ CID(5) ♦NS(5) ♦SA(5) ♦TLW(52) ♦TLP(22) ♦TLN 


table data 

DIMENSION TAUmO) 

♦ORTI (10) 

♦ RKKIO) 

♦ RXTRK 10) 


DATA 
1 ♦•008 

TAUI/ -OOl 
♦ *012 

♦ .002 
♦ .016 

♦ *003 
♦ •020 

♦ .004 
♦ .024 

. .028/ 

DATA 

1^365. 

DRTI/ 950. 
♦ 230. 

♦ 720. 
♦ 115. 

♦ 590. 

♦ 55. 

♦ 525. 

♦ 25. 

♦ 10./ 

DATA 

ltl50« 

RKI / 0.0 
♦ 175. 

♦ 50. 

♦ 200. 

♦ 100. 
♦ 250. 

♦ 120. 
♦ 300. 

♦350./ 

DATA 
If 640000 

RXTRI/ 670000. 
. ♦57O000. 

♦670000. 

♦460000. 

♦670000. 

♦280000. 

♦660000. 
♦ 140000* 

♦50000./ 


initial 






tF(TFS.EO.O.O) GO TO 400 
CALL SETSF 
SREF=SPAN**2/AR 

» FREESTREAM PARAMETERS 

20 RTFS=1716.*TFS 
RHO=PFS/RTFS 
XM=XMACH 

IF(XM.EQ*0*0) XM=.05 
UFSsSORTI 1.A*RTFS) »XM 

XMU=2*270E-8«TFS*SQRT ( TFS 1 / ( TFS+198*6 > 

R=RH0*UFS/XMU 

GM1**2*XM 

GM2*GM1*XM 

:* turbulent parameters 

TRTT=1 •■♦■•88»6m1 
A2-GM2/TRTT 


00084250 
00084260 
00084270 
00084280 
00084290 
00084300 
00084310 
00084320 
)0084330 
00084340 
00084350 
00084360 
00084370 
00084380 
00084390 
00084400 
00084410 
00084420 
00084430 
00084440 
00084450 
00084460 
00084470 
00084480 
00084490 
00Q8450O 
00084510 
00084520 
00084530 
00084540 
00084550 
00084560 
00084570 
00084580 
00084590 
00084600 
00084610 
00084620 
00084630 
00084640 
00084650 
00084660 
. 00084670 



n n 


U) 

UJ 

ro 


B=C1,+GM2)/TRTT-1. 

OENO=SQRT{B**2+4**A2) 

ALP={2.»A2-B)/OENO 

BET=B/DENO 

Cl**242*{ ASIN<ALP)+- AS IN ( BET ) ) /SORT! GM2 ) 

C2=. 76*AL0G10<TRTT1 
c# LAMINAR PARAMETERS 

TRTL=1*+*861*GM1 
TST=l*+.72*iTRTL~l. ) 

TS=TST »TFS 

XMUS=2.270E-8*TS*SQRT(TS)/< TS+198,6) 

CS=XMUS/XMU/TST 

SRCS-SORT(CS) 

C* flat plate natural transition POINT 

TFITRID.LT.O.O) go to 60 
c SMOOTH 

call cod { lOtTAUI *DRTI il *TAU*DRT » 

RTTR=163.+DRT 

RXTR=tRTTR/,654)**2/CS 

IFIXKS.EO.O.O) GO TO 60 
C ROUGH 

rk=r*xks 

call cod ( 10*RKI *RXTRI *1 »RK»RXTX) 
RXTR=RXTR*RXTX/ 670000. 
RTTR=.664*SQRT<RXTR)*SRCS 




c* 


c 

c* 


NO* OF COMPONENTS LOOP 

60 SATsO.O 


CFT*0.0 
00 300 1=1*5 

IF<CIO( I) *EQ*0*0) GO TO 300 

CALC FORM CORRECTION 


AND AREA RATIO 


XX=1 *0 

IF(CID(I)~2.) 80*70*75 
70 XK=1*+CKAF*TCM« I )+60**TCMH )**4 

GO TO 80 

75 XK=1.+1.5*TCM< n*SORT (TCMt I ) )+7.*TCM( n**3 
80 SRK=SA( n/SREF*XK 


NO. OF segments o£r COMPONENT 
tFII.EO.U TL=TLB 
IF(I.E0.2) TL=TLF 
IF(I.EQ.5> TL«TLN 


00084680 
00084690 
00084700 
00084710 
00084720 
00084730 
00084740 
00084750 
00084760 
00084770 
00084780 
00084790 
00084800 
00084810 
00084020 
00084830 
00084840 
00084850 
00084860 
00084870 
00084880 
00084890 
00084900 
00084910 
□0084920 
00084930 
00084940 
00084950 
00084960 
00084970 
00084980 
00084990 
00085000 
00085010 
00085020 
>0085030 
00085040 
00085050 
00085060 
00085070 
000850 80 
00085090 
00085100 



oJ 

U> 

u> 


NSC=NS< I ) 

00 290 IS=1*NSC 
!Ftueo*3) TL*TLWCIS) 

IF( UEQ*A) TL=TLP< IS) 

IF(TRIf>*rjE*0.0) GO TO 90 
RXTR*R*XTRLn )*TL 
RTTRs.664*S0RTtRXTR)*SRCS 

c ■ 

90 XTR=RXTR/R 
CFRDX=2.*RTTR 

C» ITERATE FOR CFS (SMOOTH) 

FP=0*0 

FM=0.0 

IP'l 

CF**001 

C0*100. 

C 

SL = Tt 

IF(CFR0X#LE*0*0) go TO 95 
CFOO=(Cl/(Ai.OG10(CFRDX)-C2> )**2 
RDX=CFRDX/CFDO 
0X=RDX/R 
SL=TL“XTR+0X 
95 RLS*R»SL 

100 IF(A8S(1.-CF/C0).LT. 0.001) GO TO ITo 
F»ALOG10 ( CF*RLS ) -Cl /SORT ( CF ) -C2 
IF IF) 110*170*120 
no FM»F 
CM=CF 
GO TO 130 
120 FP-F 
CP*CF 

130 IF( IP.EQ.O) GO TO lAO 
IP*0 
CF*.007 
GO TO 100 

140 IF( (FP*FM).LT.0.0) GO TO 160 
write (6*150) I 

150 FORMAT (51H0 SKiNF * NO SOLUTION WITHIN CFS LIMITS * 
CFS=0.0 
GO TO 180 


00085110 
00085120 
00085130 
00085140 
00085150 
00085160 
00085170 
00085180 
00085190 
00085200 
00085210 
00085220 
00085230 
00085240 
00085250 
00085260 
00085270 
00085280 
00085290 
00085300 
00085310 
00085320 
00085330 
)0085340 
00085350 
00085360 
00085370 
00085380 
00085390 
00085400 
000B5410 
00085420 
00085430 
00085440 
00085450 
00085460 
00085470 
00085480 
00085490 
COMP.=* 15 )00085500 
00085510 
00085520 
00085530 



OJ 

U) 

■p' 


160 C0=CF 

CF=lCM+CP)/2* 

GO TO 100 
C 

170 CFS=CF»SL/TL*SRK 
CFR=0.0 

180 IF(X<S.EQ.U«0) GO TO 280 
C* iterate for CFR (ROUGH) 

DX=0*0 

IFHXTR/TL ).LT,0,U001) GO TO 270 
IP*1 

DX=XTR/2*0 

C 

200 F1=1,89+1*62*ALOG10(DX/XKS) 

F2*SQRT(F1) 

CF=U/(TRTT*F2*F1»*2> 

OXO“DX 

rdx=cfrox/cf 

DX=RDX/R 

IF(A8SC l*-*DX/OXO) .LT-O-UOl ) GO TO 270 
IP=lP-Fl 

IFdP.LE.lOO) GO TO 200 
WRITE <6t250) I 

250 FORMAT ( 51HO *» SKINF *■ NO SOLUTION WITHIN CFR LIMITS * 
CFR=0.0 
GO TO 280 
C 

270 SL = TL-XTR-fDX 

F1 = 1.89-H.62*AL0G10(SL/XKS J 
F2=S0RT(F1) 

CF=l*/( TRTT*F2*F1*»2) 

CFR=CF*SL/TL*SRK 

C* SUM skin FRICTION DRAG 

280 CFU=CFR 

IF(CFR.LT.CFS) CFU=CFS 
CFT=CFT+CFU 
‘ 290 continue 

SAT»SAT-»-SA( I ) 

C 

300 continue 

C 

WRITE (6»310) XMACH»TFS*PFS*XKS*TAU*SREF*SAT»CFT 


00085540 
00085550 
00085560 
00085570 
00085580 
00085590 
00085600 
00085610 
00085620 
00085630 
00085640 
10085650 
00085660 
00085670 
00085680 
00085690 
00085700 
00085710 
00085720 
00085730 
00085740 
00085750 
00085760 
COMP. =*15)00085770 
00085780 
00085790 
00085800 
00085810 
00085820 
00085830 
00085840 
00085850 
00085860 
00085070 
00085880 
00085090 
00085900 
00085910 
00085920 
00085930 
00085940 
00085950 


310 FORMAT (23H1 ♦# SKiN FRICTION DRAG/ IHO *4X *5HmACH= *F7. 3 *4X . 5HTEMP= .00085960 



1 F9.3»4X»6HPRESS=*F10,3*4X»3HKS=*F9*6*4Xt4HTAU= »F7,^/ 

2 19H0 * REFERENCE AREA= »FI0.3/21HU * WET SURFACE AR£A=,F10.3/ 

3 29H0 * total SKIN FRICTION DRAG=tFl0.5J 
C 

400 return 
END 

♦DECK SETSF 

SUBROUTINE SETSF 
C' 

c# SETUP SKIN FRICTION DRAG INPUT DATA 

C 

COMMON/ DAT/ DA (5000) 

C 

DIMENSION XBKDtYBim 
C 

equivalence (DA<2)»WS) ♦«0AU9)»PVPa »<DA{2500> »PHT> 

1*(DA{2502»»POY) *tOA(3392WYNO) * ( 0A( 3400 1 * XBl I ♦( DA< 3550 ) »YB1 ) 
2*< DAI 2492) • PDA) 

C 

GOMMON/CFG/ IOB*IOF*IOwtIDP*IDN 
COMMON/ CPB/ OBI < 12 ) »SA6 
COMMON/CPF/ 0Fl(12)»SAF 

COMMON/CPW/ OW 1 1 3 ) »0L I *DL0*NE2 »NE3»DW2 ( 5 ) tNVSw 
COMMON/CPP/ DPI I3) »DLP»0P2U) *NVSP 
COMMON/CPN/ DN1»NP1 

COMMON/CSF/ CIDI 5) »NS( 3 ) *Sa( 5) *TLW( 52 ) *TLP( 22 ) »TLN 
C 

LARGE DM1151804) »XTlVW< 52) »DM2t 12744 ) *XTlTW( 52 ) 

1 »DM3( 10522) tXTLVP(22) 

C 

C fuselage SETUP 

C10(l)=0*0 

IF( lOB.EQ.O) GO TO 10 

CID(1)»3.0 

Nsm*i 

SA(1)=SAB 

C FANPOD SETUP 

10 CI0(2)*0.0 

IFnOF.EQ.O) GO TO 20 

Cr0(2)=3.0 

NS<2)*1 

SA(2)=SAF 

C WING SETUP 


00085970 

00085980 

00085990 

00086000 

00086010 

00086020 

00086030 

00066040 

00086050 

00086060 

00086070 

00086080 

00086090 

00086100 

00086110 

00086120 

00086130 

00086140 

00086150 

00086160 

00086170 

00086180 

00086190 

00086200 

00086210 

00086220 

00086230 

00086240 

00086250 

00086260 

00086270 

00086280 

00086290 

00086300 

00086310 

00086320 

00086330 

00086340 

)0086350 

00086360 

00086370 

00086380 

00086390 



20 CIDl3)=0.0 

IF( IOW.EQ*0 ) GO TO 40 

CIDt 3)=2.0 

NS(3)=NE2 

'{E6=NE3+3 

NE1=NE2+1 

NVSH=NVSW/2 

TWS»WS+WS 

DS4=TWS*DL0 

tlw( 11 = UTlVW<NEH+XTlTW(H )/2*0 

SAC3)=TLW(1)*OS4/2«0 

DO 30 I»2*NVSH 

IF(UGT.NE6> DS4*TWS*0lI 

TlW( I )=XTlVW( I) 

SA<3)=SA{3)+TLW( n*DS4 
30 CONTINUE 

1F( IDB«NE*0) 60 TO 40 

TLW<NE2) = UTLVW(NF2)+XTLTrt(NE2n/2,0 
SA( 3) *SA( 3 )+TLW( NE2 ) *054/2*0 
C PYLON SETUP 

40 CID(4)*0.0 

IF( IDP*EQ*0) GO TO 60 

CI0(4)a2.0 

NVPC»PVPC 

NS(4) *NVSP-NVPC 

0S/»=4,#PHT*DLP 

NSX*NVPC+1 

IC=0 

SA(4)sQ.O 

DO 50 I*NSX*NVSP 

ICsIC+1 

TLP< IC)®XTLVP( I ) . 

SA(4)=SA<4>4-TLP<IC)*nS4 

50 continue 

IFIPOY*EQ.O*0*AND*PDA.EQ«0*OJ SA(4)=SA(4)/2.0 
C NACELLE SETUP 

60 CI0(5)=0.0 

IF(IDN*EO.O) GO TO 70 

ClOt5)=2.0 

NS(5)=1 

TLN=XBIU) 

IFtXBKNPl ) .GT.XBXI 1 ) ) TLN=»X8KNP1) 
SAl5)=12.56637*YBia )*TLN 


00086400 

00086410 

00086420 

00086430 

00086440 

00086430 

00086460 

00086470 

00086480 

00086490 

00086500 

00086510 

00086520 

00086530 

00086540 

00086530 

00086560 

00086570 

00086580 

00086590 

00086600 

00086610 

00086620 

00086630 

00086640 

00086650 

)0086660 

00086670 

00086680 

00086690 

00086700 

00086710 

00086720 

00086730 

00086740 

00086750 

00.086760 

00086770 

00086780 

00086790 

00086800 

00086810 

00086820 



c 

70 


♦ DECK 
C 

c 


100 

no 

120 


200 

210 

220 

230 

250 

155 


260 

265 


280 

285 

290 

295 


IF I YNO.EO.O*O.AND.POA*EQ.O.O) Sa<5 ) = SA(5)/2*0 

return 

END 

COO 

SUBROUTINE COD (Nl *XI *Y I »NA*XO»ANS) 

A CONTROLLED DEVIATION ITERPOLATION METHOD 
DIMENSION XHl) *Yni) *X0<1) fANSlX) 

DATA XK/0,5/ 

N»NI 

DO Vlo IE=1*NA 
X*XOIIE> 

IF(N“2)110*120*200 

Y * YI (N) 

GO TO 900 

Y * (YH2I-YIIlM/(Xr(2)-Xinn* (X-XKD) +YIUJ 
GO TO 900 

J = 1 

IFlxnjWX) 230. 220*250 

Y sYl(J) 

GO TO 900 
J “ J-*-! 

IF( J-NJ210.210.250 
IF(J-2)220. 155.260 
J = 3 
JJ = 1 
GO TO 285 

TF( J-N) 280*265* 1 10 
J = N“l 
JJ = 2 
GO To 285 
JJ = 3 

IF (N-3 ) 290.290.295 
J * 3 
K = J-1 
M * K-1 
L * J+1 
A 1 = X-X n M ) 

A2 » X-XIIKJ 


00086B30 

000868A0 

00086850 

00086860 

00086870 

00086880 

00086090 

00086900 

00086910 

00086920 

00036930 

000869A0 

00086950 

00086960 

}Oo3697o 

00086980 

00086990 

00087000 

00087010 

00087020 

00087030 

00087040 

00087o50 

00087060 

00087070 

00087080 

00087090 

00087100 

00087110 

00087120 

00087130 

00087140 

00Q8715Q 

00087160 

00087170 

00087180 

00087190 

00087200 

00087210 

00087220 

00087230 

00087240 

00087250 



A3 = X-XKJ) 

al = (x-xino »/(xi(jJ-xi(K) ) 
s = al*yi( j> + ( i*o-al)*yi no 

Cl= <XI(M)-XI(Kn*(XI(M)-XI(J))) 

C2* Al*A3/( (XinO-Xl(M)HMXl(lO-xnj))) 
C3* A2#Al/( (XI(J)“X[(M)1*(XI(J»-XI(K))» 
PI = C1*YI (M>+C2*YI (K)-»-C3»YH JJ 
IF(N-3)305*305*310 
305 P2 « PI 
GO TO 315 
310 AA * X-XI(L) 

C4= A4*A3/(lXI(Kl-XI< J1 )* ( X t (lO-X KL ) ) ) 
C5* A2»AA/( (XI(J|-XI(Kl)*tXI(JI-XI(L) H 

C6= A3*A2/( (XI(L)~XniO 1*(XI<L)-XI( JIU 

P2 = CA*YI (KI+C5*YT( J)+C6*Y I (H 
315 GO TO ( 320*330*350) tJJ 
320 P2 * PI 

AL = (X-XI(in/(Xn2)-XKU 1 
S * AL*YI{ 2)*^ ( 1*0-AU*YI { 1) 

^1* S + XK*(P2-S) 

GO TO 350 
330 PI * P2 

AL = (X-XI(r4-l))/<XI<N)~XI{N-H> 
u> S = AL*YI(N» +( 1#0-AU)*YI ( N-1 ) 

P2 = S+ XX*(Pl-S) 

350 ei = ABS<P1-S) 

E2 = ABS(P2*“S) 

IF<E1'*-E2)AOO*AOU*410 
400 Y = S 

60 TO 900 

410 BT = I E1*AU) / < E1*AL+< 1*0-AL)*E2 ) 

Y = 8T*P2+( 1*0”BT)*P1 
900 ANSi IE)=Y 
910 continue 
RETURN 
END 

I 

GR0UP=121 lAERO 
OWNER=R*C*SMITH 
ACC0UNT=482511 
WRITE LIBRARY=A04RCS 
REPLACE 5UBSET»UPDATPL 
COPY 1 F FROM FILE^NEWPL 


00087260 

00087270 

10087280 

00087290 

00087300 

00087310 

00087320 

00087330 

000873A0 

00087350 

00087360 

00087370 

00087380 

00087390 

00087400 

00087410 

00087420 

00087430 

00087440 

00087450 

00087460 

00087470 

00087480 

00087490 

00087500 

00087510 

00087520 

00087530 

00087540 

00087550 

00087560 

00087570 

00087580 

00087590. 

00087600 

00087610 

00087620 

00087630 

00087640 

00087650 

00087660 

10087670 

00087680 



replace SU8SeT=0BJ£CT 
COPY 1 F FROM FILE=LGO 
END, 


00087690 

00087700 

00087710 

00087720 



